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ieux qu'un long rapport 
montrez vos courbes 



C'est un fait, une courbe ou un diagramme donnent 
instantanement les informations essentielles dont vous 
avez besoin, sans depenser de longues heures a depouilfer 
vos "fistings". 

Maintenant, la table tragante STROBE M 100 est 
disponible avec de nombreux logiciels, utilisable 
dirfictemftnt siir vntre microcalcuiatfiMr a un prix 
competitif. 

Les logiciels tournis par 
STROBE pcrmcttcnt Ic trace ct 
la modificaiion des courbes 
sans connaissance approfondte 
de rinformatique. en utilisant 
toute la puissance du langage 
conversatlonnel. 

Les informations peuvent 
etre representees sur papier 
format standard et sur 
Iranspcirdnt utilisable en 
r^troprojection, sous forme : 

— d'bistogramme, 

— de courbes, 



— de courbes isometriqiies. 

La definition est de 200 points par cm. 
I a table tra^ante STR08E est interfagable aux 
microcalculateurs les plus diffuses : 

— Apple II, III ™ — CBM/PETTM 

— OSBORNE, ™ — XEROX 820 ™ 




strobe Int. 
2&. rue de Belle Vue 
ROK 7 mSO Rriiielles, 

^ '"■i"*"""-'"'^ ^ Tel.. (3Z) {2} 649-5693 




\^ electronique 

9, rue Noblet, 

9250D Rueil-Malmaison 

Tel.: 749.70.44. 
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Voir c'est croire 



TM marques deposees 



Editions MEV 

49 rue Lameirtine 
78000 Versailles 

Direaeiir de la publicalion Herve Thinez, 
Itnpnmene 5im, 75011 Paris. 
Imprimi? en France 
Dc^iol legal : H' tritnestre 1982, 



Annonccurs 




B.F.I. 


4^ couv. 


B.IP- 


42 


C.X. MULTIGESnON 


18 


ANDRE F.RNOT 


61 


JCR 




LA NACELLE 


58 


LOGMA 


57 


MICROGES 


64 


MICRO INFORMATIQUE SERVICE 4 


LORDINATEUR INDMDUEL 


54 


P.S.I. 


19, 25, 63 


STROBE 


2'couv. 



pool's ii'6 



Sommaire 



Editorial 




par HervG Thirioz 




Transfert d' Applesoft vers EXEC 




p<ir Jacques Durrid 


o 


Logiciel graphique en Pascal 




L/Ul 1 * Ll^ 11^1 1 1 1 l\J 1 L L 


7 


Notions de base ; routine d'lNPUT generalise 


19 




Ergonomie des programmes 


23 




Un programme de HELLO complet 


27 


par Thierry Lg Tallec et Jacques Tran-Van 


Un analyseur de syntaxe 


35 


par Olivier Herz 


ToTtue Ampersand 


43 


par Jacques Duma 


Le loto, c'est facile 


51 


par Philippe Fabert 


Tableaux de taille declaree en Pascal 


55 


par R§^s Lardennois 


Courrier dcs c\uhs 


58 


The Last One a I'essai 


59 


par Andre Baboanu 


C.O.R.P. a I'essai 


60 


pdT Aiidre Babediiu 


Erratum , 


62 


par Hervg Thiriez 


Micro-informations 


65 


Courrier des lecteurs 


66 


Trues et astuces 


15-33 






• La division de la iongueur des program- 
mes par 20. 

• La possibility r6elle de desslner ses mas- 
ques de saisie ou d'impression. 

• Une ind^pendance totals de la p6ripherie 
choisie par rapport au systems. 

• L'lnt6gralit6 du systSme contenu sur une carte 
mdmoire de 20 K. 

« Une gestion de m^moire de 140 K k 120 megas. 

• Des utititaires determinants 

- un gen^rateur de programmes de ges- 
tion de fichiers permettant meme le sequentiel 
index^ multicle 

- un g^n^rateur d'^crans. 



^STRIBOTEURS AGREES 



• CALL FN, une nouvelle commande basic, tr^s 
puissante, int^gree au system© permettant 
I'appel des sous-programmes par noms avec 
passage de parametres et variables tocales. 
Une version multiposte assurant ta mise en 
commun totale des ressources sans conflit et 
I'autonomie des postes inteiligents disposant 
de leur propre unite centrale. 
Des programmes compatibles APPLE jfet 
APPLE ///automatiquement transferables sur 
COMMODORE 8096. 

Et pour demain, des logiciels ddiveloppes 
aujourd'hui directement compatibles avec le 
reseau local memnet. 
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Editorial 



Le numero 6 de Pom's represente un grand changewent : tout d'obord. nous avons modifie 
la couuerture et la presentation, comme uour aua?. pu rpmnrquer immfldintement Cela nous 
permei de uuus durinej, duns It; ui&mt; fomiat, I'equiuaient de quinze pages de plus ; en effet, on 
peut mettre 50 % de texte en plus dans une page composee. Nous avons aussi gagnS une 
quinzaine de page$ en mettant sur deux colonnes les Ustes en assembteur des programmes HELLO 
et TORTUE&, auec des caracteres compresses. Dites-nous si vous preferez avoir ainsi plus ffe 
matiere, ou si uorjs tmuufiz que In Hsihilhe. en souffre. trop Fnfin, fe tirage de Pom's passe a 9 000 
tixemphires. 

Nous auons tenu compte de la remarque de plusieurs ledeurs au Sicob, se plaignant du 
niueau trop eleve des articles : un effort particulier a ete realise quant a la realisation d'articles 
pedagngiquRs. Ke.marqunns p.n outre, que, meme si an article, prese.ntanf un programme en 
ussKfnb/etjr paul paruitre trop complique a lire, cela ne uous empeche pas d'utiliser ce programme & 
partir de h disquette (le mode d'emphi est fourni sur le programme MENU de chaque disquette). 

Signalons enfin que le Recuei! N'^ 1 de Pom's sera disponible dds le 27 decembre : ce recueil 
regroupe. en pres de 200 pages, ta plupart des articles des quate premiers numeros de Pom's ; 
I'ensemble des programmes est fourni sur Irois disqueiiea. Cet ulburn cuute 120 F seui, el 270 F 
auec ses 3 disquettes d'accompagnement. port compris. Nous sommes maintenant en rupture de 
stock des numeros 1 q3 : seuls les numeros 4. 5 et 6 peuuent done etre commandes separement 
(ou auec leurs disquettes) . 

Rappelons aussi qu'il est toujours possible de commander des disquettes separement . 50 F 
par disquette d'accompagnement de Pom's, 75 F pour la disquette d'accompagnement du iiure 
«Visicalc sur Apple» (specifier dans ce dernier cos s'il s'agit de DOS 3.2. DOS 3.3 ou Apple ///J, 

Enfin pour ceux d'entre uous qui souhaitent mettre de ta couleur dans leur uie. nous 
proposons aussi le T-shirt auec la pomme en six couleurs (tailles 36-38, 38-40 et 40-42) a 50 F, 

Possons maintenant au programme de ce numero. Nous uous offrons une course de loriues, 
entre celle de Michel Crimont en Pascal, et celle de Jacques Duma en assembleur. Olivier Herz 
uous apporte un nouueau chef-d'ceuure avec I'analijseur de syntaxe, qui uous permettra de tester 
tout un programme BASIC, meme dans ses corridors peu frequentes- TTiierry le Tallec et Jacques 
Tmn-\/ars uous donnent e.npn un programme de HELLO tres performant que vous pourrez mettre 
sur toutes vos disquettes. 

Gerard Michel uous offre un programme d'lNPUT generalise, auec un sous-programme en 
assembleur commente de fagon tres detaillee. C'e$t particulierement interessant comme initiation a 
I'a'^sembip.iir. Hemnrquons nussi. rju niveau pedagogique. une nauuelle contribution de Guy 
Mathieu, relative a I'ergonomie des programmes. 

Nous avons un banc d'essai, rialisi par Andre Babeanu, de « The Last One» et de C.O.R.P. , 
des programmes qui ecrivent uos programmes pour uous. Enfin, divers petits programmes se 
preparent a enrichir vatre progrommatheque. et uos hngues soire.es d'hiuer. 

Herve Thiriez 
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Transfer! d' Applesoft vers EXEC 

Jacques Duma 



Ce petit piogiamme transfoime tout ou 
partie d'un prf>gramme Applesoft en 
fichier de type TEXT dont I'EXECution 
charge en memoire !a partie de pro- 
gramme en question. De nombreux 
programmes ont ete publies a ce suiet, 
mois la particularite de celui ci tient a sa 
concision et a son automatisme com- 
plet. 

Le programme doit ctrc situe sur une 
disquette non protegee a t'eaiture, car 
il cree (et efface a la fin) deux fichiers 
EXEC qui sappelient I'un I'autre i 



K*P#T1 et K"P*T2. De plus, ie 
drive par detaut doit etre celui ou est 
situe CAPTURE (il ne f aut par exemple 
pas utiliser une sequence telle que 
LOAD CAPTURE. Dl suivi de 
CATALOGDZetRUN), 

Quand on le lance. CAPTURE 
demands le nom du programme 
Applesoft a capturer, le numfero du 
drive ou il se situe et I'identification du 
bloc de lignes S capturer : il demande 
ensuite le nom du fichier EXEC I cr&r 
et le numero du drive ou it faudra le 



memoriser. U ajoute le prSfixc [X,] a ce 
nom ; si Tutilisateur a appuye sur 
RETURN GaoG donner de nom, le nom 
sera [X.] suivi du nom du programme 
Applesoft, 

Tout le rests du travail s'effeciue de 
fa^on Hntieiferrnenl duLunidtique. Le 
lecteur interesse par Tanaly^e de 
fagon doni tout cela str (ail pound fc ■. 
un MONCIO auant dp lancer CJ-- 
TURE, ou bien tout simplement - 
Ifl cnncqition de ce programme. 
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SO 



BQSUB 1000:T* = "CAPTURE D'UN PROGRfi 
MME fiPPLESOFT": BDSUB 2-0(M:TS = 

tl , . ^ ^ , 

-"! GOSUB 2000: PRIMT 
CD* = ",D" SIR* ( PEEK <d3624>) 
T* = "CREfiTION D'UN FICHIER EXEC": G 

OSUB 2000 sT4 = " 

GOBUB 2000: PRIMT : 

PRINT : PRINT s PRINT 
T* = "NOM DU PR0GR0I*1I^E P RftPTURFH" ; 13 
□SUB 20O0J PRINT : INPUT N* ! PRIN 
T : IF Nt = "" THEN TEXT t HOME 
: PRINT "flU REVDIR. ": END 
INPUT "SUR GUEl. drive #";ND*:ND = V 
PL !ND*) : IF ND C ) 1 AND ND < 
} 2 THEN PRINT CHR* (7);: GOTO 
32 

INPUT "LIGNES iOEBUT-FIN) ? ",-LI4: I 
F LI* = THEN LI* = "1-53999": 
BOTO 40 
LI - VFiL <LI4) 
933 OR LI < 
LIS = 
LI ) + 
til ID* 
1 ) i 
LJ - VfiL 

} ) + 2) ) : 
9 OR LJ < 
QCTD 40 

PRINT CHR* (7);: GDTQ 33 

PRINT !T* = "NOM DU FICHIER 
UbUB 2000 i PRINT : INPUT 
T ! IF X* = "" THEN X4 = 
*i GOTO 45 
X* = "X. " + X* 

INPUT "SUR QUEL DRIVE tt";XD«:XD - V 
HL (XD$J! IF XDS = THEN XD = IV 
DSXD4 = STR* tXDt: GOTO 50 

IF XD < > I PiUD XD < ) 2 THEN PRI 
NT CHRS (7) ; : GOTO 4S 

EQSUB 1000: VTflB 9 s T* = N*: GOSUB 20 



35 IF 



35 IF 



IF LI (1 DR LI > 63 
> INT !LI) iBDTO 3S 
STRt (LI) DR LI* = STR* ( 
"-" GOTO 40 

(LJt, LEN t STR* (Li) ) + 1, 
> "-" GOTO 39 

i MID* (LI*, LEN ( STR* (LI 
LJ ( LI OR LJ > 6399 
INT (LJ) GOTO 39 



EXEC"! G 
X*: Pi^IN 



IF 



OOJ PRINT ST* = "LIGNES " + LI*s 
EOSUB 2000: PRINT ;T* = "DRIVE 

+ ND* + " CDNVERTI SUR DRIVE «" 
+ XD* + " ElV": GOSUB 2O0O: PRINT 
:T4 = X*s GOSUB 2000 
60 PRIIvJT ! PRINT : PRINT PRINT ! INPU 
T "EST-CE CORRECT ? ";R*: IF R* ( 
> "OUI" GOTO 10 
aO GOSUB 1000 s VTflB lis FLASH i Tt = " U 
N PEU DE PFnibNCt S. V. P. "! BQSUB 
2000: NORMAL 
100 D* = CHR* (4) =0* = CHR* {34):0P* = 
"□PEN":lJR* = "WRITE" :DL* = "DELE 
TE":CL* = "CLOSE" :EX* = "EXEC":K1 
* = "K*P#Ti":K2* = "K*P#T2":CH* = 



"PRINT" + G* + CHR* (4) + G$ + 



1 10 



ZERO* = "0" + 
",D" + XD* 
+• WR* + X* 
T" + LI* + 
G* + " : " ■ 
+ CD* ^ 5* 



200 



300 



500 
300 



999 

1000 



UH» + b* + OP* + X* + 

+ G* + + CH* + G* 

+ G* + " : POKE33, 33SLIS 
" : " + CH* + B* + CL* + 

CH* + G* + EX* + K2* 
+ ":END" 



PRINT D4DPaKl*CD*; PRINT D*WR*K1*: 
PRINT "LafiD"Nt", D"ND4J PRINT ZERO 
*: PRINT "RUN": fJRlNT D*CL* 

PRINT D4aP*K2*CD*: PRINT D*WRtK2*! 
PRINT "LOADCFlPTURE" ; PRINT " RUN90 
0"! PRINT D*CL* 

PRINT D*EX*K1*CD*: END 

PRINT : PRINT CHR* (4) "DELETEK»P#T 
1": PRINT CHR* (4) "DELETEK*P#T2" 
! GOTO 10 

END 

TEXT : HOME : C0L0R= 10; VLIW 0,46 
ftT 05 VLIN 0,46 AT 33: HLIN 0,33 
AT 0: HLIN 0,39 AT 46S VTAB S: H 
TAB 5! POKE 33, 3S: POKE 32,2; POK 
E: 34,2! POKE 33,22: HOME : RETURN 



2000 



HTAB 20 - 
RETURN 



LEN (T4) / 2! PRINT Tt i 



6 
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Logiciel graphique en Pascal 

Michel Cjimont 



Generalites 

Dans le precedent num^o de Pom's, 
nous avons vu comment cr^er des des- 
sins sur une matrice 15*15 en graphi- 
que H .R. et conserver ceux-ci dans un 
fichier disqut!. Aujouid'liui, nous dlons 
oreer un langage de programmation 
« graphique interactif ». iangage per- 
mettant de creer, lister des program - 
nitsi yrapliiqutis et bieii eriLaiidu Iks 
escRCiiter et les conseruRr 

Dans ce present article, nous appelle- 
rons texte la chalne d€ caracteres 
representant le programme, dessin les 
dessins H.R. 15' 15 et planche la page 
graphique complete. 

Chaque texte represents une figure 
graphique plus ou moins compleKs et 
ports un nom donne au moment de sa 
redaction et neccssaire ensuite pour lis- 
ter ou ex&uter ce texte. Le texte lui- 
meme est une chame de caraderes (80 
caract&es maximum) ; un fichier per- 
met de ranger 15 chaines de ce type, 
done 15 programmes djffgrenis qui 
poutront s'appeler les uns ies autrcs : 
par ailleurs, il sera loujours possible, 
lors de rexeciition d'un dessin, de char- 
ger un nouveau fidiier de 15 luxles. 

Syntaxe du prugramnK; 

FJp. pjt la .suivantp : 

[instruction], [inst!"uction], [instruction], 

Chaque instruction est s^paree de la 
suivante par une virgule. le texte 
devant se terminer par un point. Noter 
que lors de la redaction du texte. un 
retour chariot peut Stre indus apres une 
virgule pour faciliter I'ecriture et la lec- 
ture cn 40 colonriGS. Les instructions 
component une lettre ou un siqne 
decrivant la fonction a realiser, even- 
tuellement un slgne + ou — , puis un 
chittre de a 255 ou une chairiie de 
caracteres. 

Les instructions sont : 

D + : crayon S blanc {nccessaire pour 
dessin er) . 

D— : pas de crayon (deplacemenf 
sans ecriture). 

A + n : avance le crayon de n. 
A— n ; recule le crayon de n, 
I' + n : toume de n degres dans le sens 
inverse des aiguilles d'une montre. 
T— n : toume de n degr& dans le sens 
des aiguilles d'une montre. 



Px/y : positionne le crayon en }t,y 
le / s'lnscrit seut lors de I'&dition. 
Z ; Steint le crayon (equivalent a 
D — ) : positionne !e crayon au centre 
de I'ecran et le toume vers la droits. 
C + n : place le caractere n de 
SYSTEM.CHARSET sur Tecran. le 
coin inf&leur gauche du caractfere a la 
position du crayon. Le signe + inscrit 
un caradere normal, le — en inverse. 
S + (chame) : place la chains de 
cdiacteies sur Tecraii a la position du 
crayon Meme significntinn du + ou 
du — que pour C. 
::>n« nom » : prend le deisin numero 
n du fichier de dessin « nom » et le 
place sur rScran a la position du 
crayon . 

:<noiiifigiire5- : prend dans le tichicr 
texte en cours le dessin « nomfigure » 
et I'execute. 

Rn ([inst], [Inst],) : repete n fois les 
fonctions entre parentheses ; I'arret de 
r%)etition est obtenu en tapant un 
point, les parentheses s'inscrivent seu- 
Ics lors de Tcdition. A noter qu'unc 
repetition peut contenir une autre repe- 
tition . 

In : est un inaement, n un faaeur 
multiplicatif n'agissant que sur les 
deplacements et non sur les angles ; 
par example 12. A -f 15,T -I- 60 auance 
le CTayon de (2 x 15} = 30 et le toume 
de 60 degre. Le facteur In est airtoma- 
tlquement InaSmentg de 1 a chaque 
passage dans une boucle : exemple la 
figure nommSe CARRE. 
D + , R4 (A-H30. T-h90.) 
et la figure MULTIPLE 
D^, PlO/10, 12. R3 (rCARRE) 

le curseur ctant passe en 10 X ID, fac- 
leui de repetition a 2, done le premier 
rarre fera 60 X 60, le suivant 90 X 90 el 
le tioisieme 120 x 120. 

Chaque figure, une fois dSfinie, est 
conservee dans un fichier sur le disque, 

Le programme 

D utilise les facitites d'analyse de syntaxe 
el de recursivite du PASCAL. 

Ce programme pouna auantageuse- 
ment etre associe en un .seu! bloc avec 
le programme de graphisme de 
Pom's 5, si bien que I on aura en 
meme temps toutes les possibilites sous 
la main. 

Les procedures PRErvfiNFO. PREN- 
CAR. PRENCHAINE, etc., ont dgjS 



ete definies et seront avantageusement 
incluses dans la librairie. ce qui liberera 

de la place pour le texte en cas de 
developpement ulterieur. 

Les fonatons ECRIMAGE et LIRI- 
MAGE sont dues a un de nos lecteurs. 
M. Devemay : elles permettent de 
transferer la page graphique sur le dis- 
que ei vice versa sans tx:cuper de buf- 
fer Eupplementaire grace aux procedu- 
res BLOCKREAD et BLOCKWRITE. 

La procedure OPENLIST ouvre la liste 
de 15 chaines programme et la laisse 
en memoire : eventuellement, si la liste 
n'existe pas. cette demiere est creee. 

La procedure GETINF renvoie le 
numero de fichier corrKjpondant au 
nom d'un texte, Le fichier ne compor- 
tant que 15 textes programme au 
maximum, aucun tri n'est fait a ce 
niveau et la recherche est purement 
sequentielle. 

La procedure GETINS ; renvoie une 
chaine de texte programme complete 
et utilise AJPM (ajoute + ou —I qui ne 
permet de rentrer an clavier que -i- ou 
— , AJBIT qui ne garde que les valeurs 
de a 25S et AJCHaTNR qui prend 
une chains de caiacteres. 
La chame de texte en cours est toujours 
pointee sur le caradere a entrer par la 
variable INDEX declaree globale afin 
de ne pas gtre influences par les appels 
r&ursifs : la procedure GETINS elle 
meme gere la syntaxe de chaque ins- 
truction et evitc toute crreur de frappo 
au clavier, 

Lc premier caractere de I'instruaion est 
filtre entre tous les caracteres possibles 
et la commande est places dans la 
chaine a la position de INDEX. 

La syntaxe est ensitite giiidee par I'ins- 
truUion CASE. Puui A, T et C, obliga- 
tion d'entrer + ou — suivi d'un chiftre 
enlre el 255, 
Pour D, donner + ou — . 
Pour I, un bil. 

Pour S, un signe puis une chains de 
caiacteies (lei lirnltSe S 20 
caractersj;) . 

Pour P, deux bits successifs. 

Pour un bit puis le nom du fichier 
disque. 

Pour : le nom de la figure. 
En fin, pour R,un bit puis appel recursif 
a GETINS. 

L'instruction etant totalement charges, 
obligation d'entrer une virgule pom- 
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rrnstruction suivante ou un point si !'on 
a termine ; la suite d'instruction dans 
uns boucle R doit elle-m^me se termi- 
ner par un point. 

Le systeme gere lui-meme certains ter- 
minateurs, par exemple aprfes la frappe 
de Px fe signs / apparaft en sapara- 
teur ; aprfes le Rn apparaft automaD- 
quemenf une parenthese gauche, et 
dpr&j la frappe du point la pareutlifesfe: 
droits corresqiondantc . La frappe des 
lettres de commandc €t des signes ne 
necessitent pas la frappe du RETURN . 
Par contre, il faudra taper ce dernier 
pour valider les chaines de caraderes 
ou les entiers. 

A notcr que, lorsqu'un RETURN suit 
une virgule, il est garde dans le fichier, 
ce qui permet une ecriture et une lec- 
ture plus agreables des textes a I'ecran. 

La procedure EDITE initialise le nom 
d'un texts a rentrer dans le fictiier, 
ch<;rche une place vide dans le fiditer, 
initialise une chaTne de 80 espaces, 
Teuvuit; d GETINS pour prendre le 
textis du prngrnmmp. puis enregi^ttre la 
chaSbe de caractere et son nom dans le 
fichier. 

Les procedures LIRE et LmNSTRUC 
sont calquees sur EDITE et GETINS : 
elies sont utilisees pour lire la chaine 
texte tout en respectant la syntaxe 
d'ecriture. La procedure CATALOG 
permet de lister les textes du fichier 
LISTE en cours et 6ventuellement 
d'effacer un texte caduc ou que Ton 
v€Ut r&Scrire. La procedure EXECU- 
TION place la variable IND a 1, debut 
de la chaine de caracteies d ^ix&ute le 
texte PJET grace a la procedure REA- 
LISE : uetle piLxiediiie, a paitii de la 
syntaxe du langage, effprtne les diffp- 
lentes fonctions prevues sur la p^e 
graphique. 

A noter : 

— la recursion introduite par R qui 
appelle REALISE avec la chaine d'ins 
tmction situees jusqu'a la demiere 
parenthese fermante, ce qui permet a 
un Repete d'etre a I'int&ieur d'un autre 
Rfipeie ; 



— la recursion introduite par : 
« nom » qui rappelk EXECUTION 
pour le texte « nom », On remarquera 
que pour A le d%)lacement est MOVE 
(x t INC). INC etant rinaement, ce 
dernier ne pourra ^e modifie que par 
une nouvelle valeur de I. Si Ton desire 
qu'a la sortie des boucies INC rctrouve 
automatiquement son ancienne valeur. 
il faudra declarer INC dans EXECU- 
TION et introduire INC: = 1 dans le 
corps de la procedure auant I'appel de 
REAUSE. 

programme principal place le menu 
Tecran et permet de choisir les diffe- 
rentes options. Certain es fonctions 
agissent au niveau des textes {1,2,3,4 ) 
et ne sont actives que si la ligne 
TEXTES-^^ ".,.§ nomme un 
fichier. Pour creer ou charger un 
fichier, il faudra done appeler la 
fonctjon 1 et nommer le fichJer : ce 
fichier sera lu ou cree et son nom appa- 
rattra entre les aochels. A partir de ce 
moment, 2 permettra d'edHter une ligne 
supplgmentaire de texte. 3 de lire un 
texte et 4 de lire le catalogue des textes 
de ce fichier. 

La deuxieme partie, intitulee — — 

GRAPHIQUES , permet : 

5 : efiacement de la page graphique. 
G . viiiualisa^tiun de la page grapliique, 
le RETl.JRN ramene au menu. 

7 : 5auve la page ^rephique sm le dis- 
que. 

8 : lecture d'unc page graphique du 
disgue. 

9 : execute un texte. 

: sortie du programme. 



Modifications euentuellcs 

1. Tous les fichiers : textes, dessins, 
planches sont sur le disque du lec- 
teur 2 ; si Ton prefere travailler sur le 
lecteur L il suffit de rempiacer dans les 
declarations V0L = '#5:' par 
VOL ='#4:'. 

2. Si Ton dears des programmes plus 
longs, on pourra rempiacer 



LONGPRO=80 par LONGPRO = X 
(X < 255). 

3. Si Ton desire un fichier plus long, il 
stjffit de changer la con.stante de 
NBUSTE. 

Extensions envisageables 

1. Ajouter un veiitable Sditeur de ligne 
avec corrections. 

2. Ajouter d'autres foncUons ; pour ce 
fairc : definir le caractere de la fonction 
et I'introdulre a PCAR. ecnre les lignes 
corrcspondantos dans les CASE dc 
GETIND, LITINSTRUC et REAUSE. 

3. Ecitre des proceduresi PASCAL 
specifiques pour certains des?ins diffici- 
les a realise: pai ce progiamme, par 
exemple : arcs de cerde, pnlygnne.i 
leguliers, etc., et placer les lignes cor- 
respondantes au menu. 

4. Ecrire en instruction immediate sur 
1q page graphique en acceptant des 
caracteres a la place du RETUFIN. On 
pourra utiliser la memc syntaxe, un 
deplacement point par point, ou les 
deux. 

5. Utilisation de couleurs pour le fond 
ou les dessins. 

6. D^finitiun de faiifities. 

7. Rotation, agrandissement de des- 
sins, deplacement de dessins dans la 
planche. 

8. ... A vos claviers. . . 

Attention ! 

Afui de ne pas surcharger le pro- 
gramme, le."; controles d'enreurs ont ete 
limites ; en particulier. il n'y a pas de 
controle de sortie de la page graphi- 
que, celui-ci peut etre ajoute a la fonc- 
tion A et a Y pour P. Lors de la redac- 
tion de la chaine texte. le controle de 
longueur est un peu frustre et inteivient 
au coractere 77 avec retentisscment de 
bips sonores ; ceci sulfit sur les instruc- 
tions courtes, p>ar contre le nom d'unc 
ficfure peut etre coupg si I'on n'y prend 
garde, 



PROGRAM TGRTUEf 

usi::g turtlegraphicj 
const nbliste 

TAXLLE 
UOL 

LONGPRDG 
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TYPt; QHUIDECA 
COMHANDE 



FDRME 

COM 
LXSTE 

inde:x,i:,3:nc 

NGDHf NIMA 
PRO JET 
ECRAN 



PIIQTQ 
ALBUM 



=^3ET OF char; 
"RECORD 

NOM JSTRINCnn^f 

IN5TRUC rSTRINGCLONGPROGJ 
END? 

^^PACKED ARRAYCO . .8191] OF 0..25S; 

=^:PACKED ARF^AYLO * *TAILLE» , .TAILLEII OF BDOLEANJ 

EFB , fiON , 7.m , NDRM^ CR : CHAR J 

jchar; 
5cdmmandej 

J FILE OF ARRAYFl , .NF 

5 integer; 
3 string; 
t string; 

: RECORD CASE 



ILXSTET OF COMMANDEJ 



BOOLEAN OF 



FALSE i (ADRESSE I INTEGER) ; 

: (pniNTELlRS^HEMDIRECRAN) 



TRUE 

end; 

J FILE f 
tFILE QF 



forme; 



C 5t; ! >K ) 

CS! PROCEDURES GEWERALES HABITUELLES * > 
C > 

PROCEDURE PR info; 
BEGIN 

HOMEJ-CHRC 12) ; EFL t =CHR C 29 > ; BS ;-CHF^(3>^ CR !-CHR(13)f 

SON t=CHR(7); INU:==CHR<18) ; NORMJ==CHR(20 ) ; EFB t ==CHR< 1 1 ) 

end; 



PROCEDURE PRENRETURN; 

yftR SORT jchar; 

BEGIN 
REPEAT 

read ( keyboard ^ sort > 
until eoln< keyboard) 
end; 



FUNCTION PRENCARdiiONSETtCHOIDECA) J CHAR J 
VAR CH J CHAR I 

BON JE:00LEAf4; 
BEGIN 
REPEAT 

READCKEYEiOARD^CH) ; 

IF EOLNC KEYBOARD) THEN CHT=CR| 

BONJ^CH IN I50NBET} 

IF NOT I3QN THEN NRITECSON) 

ELSE IF CH IN C ' '.,'^'1 THEiSI WRITE <CH> 

UNTIL don; 

PRENCARt^CH 

end; 



FUNCTION OUT r boolean; 

BEGIN 

ouit^^prencarcc'o' , 'n''!]) in co'] 
end; 
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PROCEDURE HESSAGE:(Y{INTE:GERfStSTRINQ) J 
BEGIN 

UDTOXYCO ,Y) ;WRITECS,EFL.) 
END? 

PROCEDURE AL.ARME ( S J STRING ) f 

GOTOXT ( » 1 ) ; WRITE < SON , EFB ) ; 
MESSAGED 10 ,S) J 

MEBESAGE ( 12 , ' FAITES <RETURN> ' ) t 
PRENRETURN 
END ? 

PROCEDURE FRENCH AINE C LONGMAX I INTEGER ; BONSET : CHDIDECA J VAR S \ STRING ) J 
VAR 31 JSTRINGL13f 

CONT t STRING J 
BEGIN 

Sit-' '*, 

dgnt:-' ' } 

REPEAT 

IE LENGTH (CDNT)^O THEN Bl il 1 lU -PRENCAR ( E:ONSET-i [;GR'J ) 

ELSE IP LENGTH CCGfv!T)=LDNGMAX THEN SI L IJ J -PRENQAR < tCR ♦ BS J ) 
ELS E B 1 1: 1 :k -pre nc a R ( B □ NB E T + L CR » BS -J > f 
IF SlCi: IN BONBET THEN CDNT J -CONCAT ( CONT , SI ) 
ELSE IF SlCn==E:S THEN 
BEGIN 

WRITE (ESf' 'fE:S>; 

DELETE (CGNTa.,ENCTH(CONT) ,1) 

end; 

UNTIL BlCia^CRJ 

IF LENGTH (CDNDOO THEN S:=C0NT 
ELSE WRITE(S) 

END? 

PROCEDURE ENTIERCLONGMAX; INTEGER fVAR S t INTEGER ) f 

VAR SI ? STRING i:u; 
I J integer; 
coNT t string; 

OKSET JCHDIDECAJ 
BEGIN 

OKSET ;=-c ' ' * t 'va J31 ' ;conti-" i 

1 REPEAT 

IF LENGTH (CONT )==^0 THEN Sli:i:i S-PREilHCARCOKSET+tCRl ) 

ELSE IF LENGTH C CONT )=LGNGMAX THEN SI L 1 3 J -PRENCAR ( EICR , BS3 ) 
ELSE 9 1 C 1 "J t = PRENCAR C QKSET-* I:GR , B£l ) J 
IF SI CI a IN OKSET THEN CONTJ ^CONCAT ( CONT » S 1) 
ELSE IF Si:il=^=^B3 THEN 
BEGIN 

write (rs^' '^eis>; 
delete(cont,length<cont> ,i) 
end; 

UNTIL SlEll-CR! 
IF LENGTH < CONT ><>0 THEN 
BEGIN 
S: = G f 

•pm TO length; torn-) do 

BEGIN 

si:=s*io ;si=s+(ORD(caNTCi:)~-aRD( ' 0' ) ) 
end; 
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END ELSE WRITECS) 
END J 
< ^ ! it; ) 

<* LECTURE, ECRITURE DE LA PAGE ECRAN SUR DISQUE 

FiiNCTinN i.trthaqf(tma[;;f:stf;'TN(;> tFinni fanj 

BEGIN 

RESET (PHDTD, IMAGE) I 

"IF idresultoo then lirihage;=-"I-alse 

ELBE BEGIN 

LIRIMAGE : ==eLOCKREAD (PHOTO , ECRAN . POINTEUR'^ ^ 1 A ) = :l.6 J 
CLOSEtPHDTOJ 
END 
(»:$I+)K ) 
END? 

FUNCTION FCRIMAGFCIMAGESSIRING) :EiODLFANJ 
BEGIN 

REWRITE f PHOTO ^ IMAGE U 

IF lORESULTOO THEN ECRIMAGE ^-^FALSE 
ELSE EiEGIN 

ECRIHAGE : ==BL0CKWR1TE ( PHOTO ^ ECRAN . POINTEUR^ ^16) "■■ 1 6 ? 
CLOSE (PHOTO, LOCK) 
END 



FUNCTION PRENIMAtWAR IMAGE t STRING ) J BOGLE AN J 
BEGIN 

MESSAGE{22, 'NOM DE LA BLANCHE tm 
PRENCHAINE< 10 , L ' A ^ ♦ ^ ^ Z ^ 3 , IMAGE > f 
IF IMAGt>" THEN PREfJIMA T-^FALBE 

elbe bfcih 
prenima;=true; 

if pos< ' { ' ,image>-0 then image t -concat ( mol , image > j 
if por( ' . ■' ,tmagf5=tl then image j =conc at ( image ima ' ) 

END 

END I 
(St ! s:) 

(.yf. PROCEDURES DE GESTION DES. FICHIERS TEXTES s; ) 
(«#«) 

PROCEDURE OPENLISTE( ST : STRING) ! 



C)tc$I+« ) 



END? 



yAR I J integer; 




BEGIN 



CLOSE CLISTE) J 
RESET (LIBTE» ST) f 
IF lORESULTOO THEN 
BEGIN 



CLOSE<LISTE) t 

REWRITE CLiSTEf ST) ; SEEK C LISTE ^ ) ; 

L , NOM : » " f L . INSTRUC J - " J 

FOR Il~l TO NELISTE DO LISTE'^ EI 3 I =L f 

PUTCLI3TE) ; 

CLOSE CLISTE^ LOCK) J 

RESETCLISTE^ST) 
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END I 

FUNCTION GE^TINDtNMJSTRING) JINTE;GE;RJ 
VrtR I : INTEGER J 
BEGIN 

i:-i;getind;-o r 

WHILE (NMOLISTE^CIl.NOM) AND (KNBITSTE) DO i:==I+lf 

IF- Nh^^4..I!:iTE-^[;i3 *NGM THEN GETINDJ==I 
END t 

PROCEDURE GETINSCVAR INSJSTRING)^ 
VAR CI J CHAR I 

PKOCEDLIRE AJFM; 
BEGIN 

IN£;CINDEX::-PRENCAR(C' + % 1 :i ;INDEXI=INDEX+1 
END? 

PROCEDURE AJBITJ 
VAR BIT J INTEGER} 
BEGIN 
REPEAT 

bit;^oj 

ENTIER<3,BIT) J 

IF E:IT>255 THEN WRITE < BS, ES, BS, ' '.BS,BStBS)J 

UNTIL BIT<255^ 

IN3CINDEX3 ;-CIIR<BIT) JINDEXJ-INDEX4-1 
ENDJ 

PROCEDURE AJCHAINE<NE;!? INTEGER) ; 

yAR j string; 

BEGIN 

g i ^ / y t 

PREMCHAIis!E(KB, r.' A' * . 'Z'l ,B) J 

IF inde;;x^-length<s)<longprog~3 then 

BEGIN 

MOUELEFKBU.: ,INBCI^!I>EX1,LENGTH<3) ? ; 
INDEX J :=INDEX+ LENGTH ( S ) 
END ; 
end; 

tiEGIN 
REPEAT 

IF INDEX>7S THEN MRITE<SDNt BON^ SON) J 

Ci:=PRENGAR(C'A' , '■T-' , 'D' , ' I % ' Z' , ' S ' , ' P ' , ' C ^ ' R % ' f ' J ' , CR^ > J 
IF Cl-CR THEN WRITELN ELSE BEGIN INSCINDEX: J =C1 ! INDEX ? -IMDEX+1 END; 
CASE CI QF 

'A' , 

'T% 

'C J BEGIN AJPMfAJBIT END; 

'1' J ajbxt; 

'S' J BEGIN AJPM;AJCHAINE<2C ) END? 

'p'lBECiN ajbit;write( ) ;aj&it end; 
' > ' : i;:egin a jbit ; a jchaine: ( i o ) end ; 
' ; ' : AJGHAiNEt 10) ; 

'R' IBEGIN 



A J B IT I WFai E ( ' (') ; INS [: I N n E X 1 1 ■■=: ' f ' ; tndf x t = i n d e x + 1 ; 
GET in::) (INS) ; 

WFn:TEC ' 5 ' ) ;iNS[:iWDEX3 t - ' > ' riNDEXt-INDEX + l 

Eim ; 

END 5 

IF DlOCFc THEN CI. : =-PRENCAR (ly , ' , ' , t 
INSCIMDEXJ ; "CI, ; INDEX ;=l.NL!EX-t-l ; 

L) H T :i; L c c > c R ■: i n d e x >• i., □ n g p r o g - a > ; 

IF INDEy>LGMCPRDG-3 THEN INS C INDEX - 1 t ==^ ' . ' J 
END? 

F'F^OCEOURE EDITED 

MAti: NDMFI JSTRINGCKHS 

INDICE, I ; INTEGER! 

L tSTRINGCeOH f 

BEGIN 

PAGE < OUTPUT) S 
X * 1 J 
REPEAT 

IF LISTE'-CIiJ.NOH-" THEN INDIGEI-If 

It~l+:L; 

UNTIL (INDICEOO) OR a,-NBLlBl t.^- 1 ) ; 

IF INDICE-0 THEN BEGIN ALARME < ' FICHIER PLEIN , » . M f EXIT ( EDITE) END? 
MESGAGE< , ' EDITION I FIGURE ' ) J WRITE ( INDICE ^ ' DE ' ,WCOM> f 
MESSAGE<7, 'NOM DE LA FIGURED 

PRENGHAINEaO , C 'A' . . ' Z 3 , LIGTE^ . NOM > } 

INDEX f 
(Kf R~ x ) 

LCO:i !=^GHR<8() ) J 
riLLGHAR(Li:i] ,90, ' 
( * f F^: ^■ * ) 
COTOXY( , 10 ) ; 
CETTNSCL) I 

LlSTE^C INDICE :i . INSTRUC J 

SEEK < LISTE ,0)1 PUT i LI9TE ) } CLOBE ( LIGTE^ LOCK) J RESET ( LISTE ^ NCOM ) 
END? 

PROCEDURE EITINGTRUC < S I STRING ) | 
VAR CI : CHAR I 
BEGIN 
REPEAT 

CI t =..SEINDEX3 J WRITE ( CI > | INDEX t =--INDEX-t-l J 
CASE CI OF 

'A^,'TS 

'C t BEGIN 

WRITECStlNDEX]) ;iNDEX;-INDEX + :l, ; 
HR IT E ( RD ( S CI ND i::X ll ) ) J I NQEX 5 - 1 ND E X 4 1 
END I 

'D' ;E:EGIN WRITEtSCINDEX] ) ;iNDEXJ-INDEXt-]. ENDJ 

'I' ! BEGIN WF>:ITE (OR[><Gt INDEX] >) lINDEXt-INDEX+l END J 

'P' : BEGIN 

WRITE<ORD(S[:iNDEX"J) ) ; INDEX I ~INDEX + :L J 
WRITE< ,0r>:DCGLINDEX3> ) ^INDEXt-INDEX + 1 
END J 
'S' , ' ; -' ; REPEAT 

ClJ^SCINDEX^JHRITEtGl > ? INDEX 1 -INDEX+l 
UNTIL ■.'SCTNDEXH IN C % J 
; BEGIN 

WRITE (0RD(Si: iNDEX3 > > f INDEX J -INDEX+ :l. f 
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REPEAT 

Ci J=SCINDEX1|WRITE<C1 >; INDEX T =INDEX+1 

UKTIL < si: INDEX 1 IN C :i ) ? 

END J 

'K' IBEGIN 

WRITE (nRD<GLINDEXl) > f INDEX t-IWDEX+i; 

WRITE t 9: INDEXl ) I INDEX : ==TNDEX4 i J 

LITINSTRU(:<S) ; 

WRITE (SCINDEX3 > f INDEX t-INDEX+1 
END? 

END 

UNTIL . ' ? 



PROCEDURE lire; 
MAR INDICEt INTEGER J 
Nfl iSTRING} 

BEGIN 

PAGE C OUTPUT ) I MESSAGE f fl , ' LECTI.)F;;E: t'^l WRITE ( HVAm ) ; 
inESSAGEtZ, 'NOM DE LA FIGURE? 

prencmainec 10 ,c ' a' , , 'z' 3,nm) j 
indice:=qetind(nm) ; 

GOT0XY( ^ 10 ) ;XNDEX;=i; 

ir indxceoo then litinstruc < ligte^cindxce imnstruc) 

else. hessage( 10 , 'n"existe pas'); 
message(23» 'tapez le sreturn> ' ) jprenreturnj 
end; 



PRQUEDURE catalog; 
VAR I J INTEGER J 

C; CHAR J 
BEGIN 

PAGE(OUTPUT) JMESSAGEtO t 'CATALOGUEJ ' ) JWRITE<NCDM) J 
GOTOXY< J 

FDR i::=l TO NI?LXSTE DO WRITELN (I I Z f ' - , LISTE^ LIII » NOH > 
hESSAGE<Z3, 'TAPEZ E<rFACE DU <RETURN> 
Ct-PRENCAR<U'E-' ^CR3 ) J 
IP C='E' THEN 
BEGIN 

MESSAGE<23, ^NUMEROt ' > J 1 1 = J ENTIER ( 2 . 1 3 J 

IF (lONBLISTL) THEN 

BEGIN 

LISTE-^Ci:! .N0f1t = ' ' JLISTE-^CI1.INSTRIJC: = ' ' 
END 
END 

end; 



PROCEDURE PRENLISTEJ 
PAGE (OUTPUT 3 ; 

MEGGAGEtS, 'NOh DU FICHIERJ'>f 
PRENCHAINEt 10,r'A' 'Z'l,NCnM) f 
IF NCOM=" THEN EXIT ( PRENLISTE ) J 

IF POS< ' . ' ,NCOM)-0 THEN NCOfI J ==CONCAT ( NCOM , ' . COM ' ) J 
OPEKLTSTE(NCnM) t 

end; 



<)K EXECUTION D'UH TEXTE: SUR LA PAGE GRAPHIOUE «) 

<; )S; fl: « ) 

PROCEDURE E'.XECUTIONCPJETt STRING) } 
WAR XNDICE.XND JINTEiGERf 

PROCEDURE REALISE (S: STRING) t 
VAR CI, SI fCilARJ 

IM iSTRINGJ 

I f. REF' ) 

LIH,CT,N INTEGER J 
BEGIN 
REPEAT 

cu-s:xfJD"j fiND:^^iND-vi; 

CASE CI OF 

'A' tCASE StIND3 OF 
' + ' ; E!EGIN 

IHDt=IWD+l J 

move(ord<s:ind: )*INC> jindi^ind+i 

EHDf 
JEiEGIN 

ind;==ind+i ; 
turnciso ) j 

M0UECGRD{S[:iND3)iKlNC> JINDt=IND+i t 
TURN<-180 ) 
END 

ENDJ 

;e;egin 

si:-s:iND] UNDi-iND-t-i. ; 

if SI=' + ' then TURNCORDCSCINDl) ) ELSE TURN C --DRD CSCIND"! ) ) J 
INDJ-IND-^l 

end: 

'I':pegin inc;==urD(;slindj) riND:=iND+i end; 
{ degin 

Slt^StlND] SIND5-IND+1 I 

IF ' + ' THEN CHAR! YPE (10) ELSE CHARTYPE ( 5 ) J 

WCHAR(GCIND3> JINDI-IND+1 
ENDJ .../,,. 



Trues et astuces 

Quelquefois, votre disquette se centre mai et 
vous obtenez une fatidique 1/0 ERROR. Beau- 
r.nup H'entre ellei; pntjrront etre cuitees Inrs 
du premier acces a une disquette, vous ne fer- 
mez la porte du lecteur Qu'une fois la lampe 
temoin altumee. 

En etiet, la disquette se centre mieux dans ce 
Ltis-la. 

Enfin , si vous voulez eviter lea ennuis, n'oubliez 
quand meme pas que la disquette est tin sup- 
port fragile, ct que la tete de lecture est appelee 
a travailler (res pres de la surface, 

Un de nos iecteurs a ainsi pu constater que, 
quand de la confiture tombe sur une disquette. 
ce n est bon (pas la confiture, bicn sur) ni pour 
la disquette (on s*y attendail) nl pour le lecteur 
(ga. c'etaif moins evident). II a fallu d&onfiturer 
Itj lect^ut en dtetier. 
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'0' IBEQIH 

if 3x--' + ' then pencolorc white) else pencqlor ( nof-ie ) 5 
end; 

'ZMBEGIN 

PENCOLOR<NONE) t 
lUKNTLK 0) ; 
hOVETO(l^}0t96) 
END? 

MQVETOCORDt SCINDJ ) »0F;D(SCIND + 13 ) ) J 

INDi-IND+2 

'S' ; BEGIN 

si;==st:iND]jiND:=iND-n; 

IF Sl-' t-' THEN CHARTyPE<10> ELSE CHARTYPE(5)j 

ci;=si:ihd:j 

REPEAT 

WCHARCCl) JINDt-INDHJCl !=SCIND3 

until ci in[:',%'*'1 
end; 

' : ' JBEGIN 

IJ=GCAN(:U , ' ,SLINi:>"J) f 

IF 1^=11 THEN i:-SCAN( 11,"' . %SCIND:]) J 

im:-copy<s,ind,i> ;iND:^^a:ND+i} 
execution <im) 
end; 

I begin 

n:-ord<s[:ind3> ;ind:-ind+i; 
I : -SCAN (11, = ' , ' ,scind;i) ; 

if 1=11 THEN i;-SCAN< 11,-' . ' ,S[:IND3) J 

im;=cdpy<s,ind,i) ;ind;-ind+i; 

IMt=^CDNCAT(UOL,Iinf ' ^PIC ) I 

RE9ET< ALE:UM,IM) J 

IF IDRESHLT:=0 THEN 
BEGIN 

seek<ale!um,n) ; get (album) ? 

drawblgcki albums f 2,(1 , d , 1 5 , 15 , turtlex , turtle y , 1 ) 
end; 

cloge<album> 

(**T+)K) ; 

end; 

'R' tEEGIN 

REPJ=0RD(StIND3) JINDJ-INDi-2; 

i;-ind; 

REPEAT 

IF SL11=' )' THEN LIM;-IJ 

i;-i+i 

UNTIL (Si:i:]:=' M OR (I™80); 
Irt? =CQPY ( S 1 im , LIi1~IMD H CT : -IND I 
FOR It-1 TO REP DO 
&EGXN 

ind;~i ; 

IF INOi THEN INC;-INC + 1} 

realise (im) 

end; 



ind:=:l.im 

ENDJ 

END 

UNTIL Cl^' . ' 
BEGIN 

INDICE:t=:QETINDCPJET> JINDJ-t f 

IF INDICE = ( HEN EXIT ( EXECUTION ) J J 

REALISE ( LISTE'- [ilNDICE] . INSTRUC ) 

Emt 

BEGIN 

PRINFn;NCOMJ=t;' ' fNIMAt=:-' J 
ECRAN. ADRESSEJ=3132J 
REPEAT 

PACECnUTPUT) J 

F-DR i;=:l TO 6 Dn 

BEGIil 

WRITE ( 'TORTUS: 

IF I MOD THEN WRITE (NORM) ELSE WRITE (INU) 

END t 

fiEBSAGE<fJ, TEXTES ^->' ) J WRITE ( IKV , ' C , NCOM , ' 3 ' , NORM ) I 

GOTOXY< 10,7) iWRITEC ' LIJ CHANGE DE FICHIERMf 
GOTOXYUO ,8) fWRITE< EDITE OWE LIGNE'j; 

GOTOXY( 10 »9) fWRITE( ' CSJ LECTURE D^'UNE EIGNE' ) J 
G0T0XY( 10 , 10 ) 5WRITEC 'C^J CAl ALOGUE' ) f 

MEOBAGE ( 12,' QRAPHIQlfES -- ' ) ; 

GDTOXY<10,1^) ? WRITE CCS : EFFACE LA PAGE') J 
GOTOXY<10,ia) fWRITE<'C6] VISUALISE LA PAGE')? 
GOTQXY < 10, 16 ) S WRITE < '1:7:1 SAUVE LA PAGE')? 
GDTQXY(in,17) JWRITEC 'CSH CHARGE UNE PAGE'j; 
QOTOXYCiO,18) ;WRITE( 'C?: EXECUTE UN TEXTE' ) ; 
GOTOXY<:L0,2(n f WRITE ( 'CO 3 QUITTE' ) f 
GOTOXY (3,22) J WRITE C 'OPTION t l',BS,E:B)J 
GA ; -PRENCAR < I ' Q - , , ' 9 ' 1) t 
CAKE CA OF 

' 1 ' IPRFNLIBTEf 

NCOMO" THEM EDITE ; 

'3'? IF NCOMO" THEN LIRE J 

'^':iF NCOMO" THEN CATALOG,* 

-s'JBEGiN initturtle;textmode end; 11 

BEGIN GRAFHODE^PRENRETURNnEXTMODE END? 

'7':tf preni^ia(nima) then ill 

IF not ECRIhAGEt NIMA) THEN ALARME CPAS D " ENREGISTREHENT ' ) J 
'S'lIF PRENIMA(NIHA) THEN 

IF NOT LIRIMACE(NIHA) THEN ALARMECPAS DE LECTURE')} S 

MESSAGE < 22 f 'NGM DU TEXTE t'>; 3 
PRENCHAINEdlO^CA' . , '2'n,PR0JET) J H 
IF PROJETO' ' THEN H 
BEGIN 

MESSACE(22, 'DESSIN ') J WRITE ( INM , PRO JET , NORM , ' EN CQUR8'>i 
INC J ==1 ; EXECUTION C PRO JET) 

END 

end; 

END 

UNTIL CA-'O' 
END* 
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LA GESTION DE FICHIER TOUS AZIMUTS 



Un seul programme, un tres grand 
nombre d'appMcations 

Avec ce logiciel. voire APPLE dis- 
posera de pouvoirs exceplionnels , 
vous vous en servirez pour suivre 
vos rlifintfi. paifr etablir vos previ- 
sions, pour mettre a jour vos tarifs. 
pour gerer vos commandes. vos arli- 
cles en stocks, pour calculer la paie 
de vos employfis ou simplement 
pour tenir votre collection de tim- 
bres ou de livres. 

Une Ires grande facillte de m»se en 
oeuvre 

Nul besoln deconnaitrel'lnforma- 
tique. nul besoin d'utiiiser un voca- 
bufaire de Gpecialiste: pas de 
uodificaliuns inutiJes; les instruc- 
tions sont simples, naturelles et en 
frangais. 



D^finissez vous-meme votre modele 
de fichier 

Chaque rubrique devient automa- 
lit|ueinerit w\ crilfaederBchefcheet 
de classement ; vous pourrez a tout 
mnrnRnt redefinir uotre modele, 
ajouter ou retrancher dec rubriqucs 
sans avoir a rtit^crire les donnees. 

Hetrouver vos dossiers de mulllples 

Vous pouvez les rechercherapar- 
tir de n'importe quelle rubrique, 
retrouver tous ceux repondant a 
certaines caracteristiquesselon une 
combinaison de criteres (jusqu'a 12 
simuitancmont) tels que "egal", 
"p(us grand que", "pJus petit que", 
"different", "compris entre". 



Faites toutes sortes de calculs et 
profitez de votre imprimante 

Vous pourrez presenter lea infor- 
mations de voire ctioix et les resul- 
tats de vos calculs sous forme 
d'etiquettes ou de rapports (jtjsqu'a 
13 colonnes). dans n'importe quel 
ordre alphabetlque, numerique, 
chronologique. 

Avec CX Multigestlon, vous travail- 
lerez tres vite et vcus irez tree loin 

Comparez avec d'atitres pro- 
grammes : VOUS retrouvez n'importe 
quel dossier, vous dressez un etat 
combinant classement et selections 
en quelques secondeg ; en outre, GX 
Mulligestpon n'est que Ik premier 
programme d une serie de iogiciels 
de gestion tous compatibles entre 
cux. 



Demandez a votre boutique informatique une demonstration de CX Multlgeation et vous sere? vraiment ^merv6?lle : si elle ne I'a 
pas fin stot^k, demnndez hii de nous appeierau (1} 538.98.87 ou ecriveznous a: CONTROLEX-TourMaine-Montparnasse,33, av. 
du Maine - 7S7S5 Paris Cedex 16 



A^jult? e^l w 'K FiEdj que d^pos^ d8 Apple CDFiipuler Inc 



Notions de base : 
routine dlNPUT generalise 



II y a fort a parip.r que beaucoup des 
programmes que vous ecrivez, ou 
enuisagez d'ecrire. comportent, a un 
moment qLtelconque, une phase 
d'entrfe de donnees au clavier. Cer- 
tes, une simple suite d'instructions 
INPUT peut realiser ce tiaitement, 
mais ce n'est ni 1q solution ta plus 
agreable a I'oBil {presentation de 
tecran au moment de la saisie), ni la 
plus sure a I'usage (controle des 
donnees entrees). 

Meme si vous etes le seul utilisateur de 
vos programmes, il peut vous etre utile 
de disposer d'une routine * d'INPUT 
ggngralisg » qui assure une gestion cor- 
rects de Tecran g1 verifie que les don- 
nees entrees correspondent bien 3 ce 
qu'cUes devraient ^tte. 

PrindpGS gcneraux 

Pour faciliter Fonalyse de la routine pre- 



sentee id, predsons les objectifs que 
nous voulons atteindie. 

1 . L'&ran doit indiqucr dairement les 
informations a foumir et assigner a cha- 
cune d'elles une zone de rentr^e indivi- 
dualisce, 

2, U doit etre possible de se deplacer 
sur r&ran. vers le haul comme vers le 
bas, pour modifier les differentes don- 
[iKBS dvant Luute validation, 

3, Le connrdle des donnees doft s'effec- 
tuer caractere par caractere au moment 
de la frappe [pas de lettres dans une 
information numeriqus. pas de carac- 
lerea de contrfile ou susceptibles de 
perturber les traitements ulterieurs..,). 
De fjlus, la k)iiyueur des iiifonTiatious 
ne doit pas depasser Ic maximum com- 
patible avec les aulres tiaitemeiils. 

4. Apres validation, les donnSes doi- 
vent pouvotr etre moditiees ou consul- 
tees facilement. 



G€mrd Michel 

Notre routine repose en consequence 
sur les principes suivants (se reporter au 
programme BASIC pour identifier les 
uajiables) . 

1. Chaque intormation est definie par 
un libelle 1L1$). la position du premier 
caractere a renlrer (ZV'fc et 21-1%), ct 
la longueur maximale de la rSponse 
(ZL%), 

2, La louche RETURN permet de ter- 
miner I'cntree d'une information et de 
passer a la suiuante. La touche ESC 
permet de remontcr aun donnSes pr^- 
cedentes ou de revenir a la phase de 
traitement precedente, 

3, On distingue trois types de don- 
nees ; alphanumerique (type 1), 
num^rique {type 2) et date (type 3) , 
Cliaque information est caractsrisee 
par son type (TV?) ) , 

4. Des variables annexes permettent 
de realiser Faffichage des donnees pour 




A VOS MARQUES, 

COMPTEZ. 



Un ensemble de programmes portant sur la comptabilite, dedie aux 
\ petites entrfiprises, profes-sions liberales, artisans, commergants. bref 
aux amateurs d'informatique soudeux de fa gestion de leurs affaires 
professionnetles ou privee.s. 
G'est un outil complet et pratique a utiliser qui, apres un rappel sur 
la comptabilite generale donne des exemples concrets : edition 
des livrcs-journal, grands (ivres, balances, bilans, calculs des 
ratios ainsi qu'un programme special interessant I'adaptation 
et la personnalisalion du Plan Comptable. 
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modification ou coiibultaUuii (ME, X, 

Analyse ei utilisation 
de la routine 

Le conttole des donnces entrfes, 
carotLere par toiaulKre, tonstil-iifc; le 
rreiir de la routine II est nssiire par im 
petit programme en assembleur, ce qui 
pemnet de : 

— faire recortomie de nombreux tests 
en BASIC sur les codes ASCII des 
caraderes. tout en accelerant le traSe- 
ment ; 

— bcncficier facilement de la lecture 
« active » par la tleche de droite et de 
garantij que les donnees stockees dans 
les variables sont identiques S celles qui 
apparaissent aur Fecran ; 

— iilustrer par un cxsmple simple I'litl- 
lisation de I'assembleur et son iiitarac- 
tion auec BASIC, ce qui repond ^^m. 
vcHux dii Hoiiibreiix lectKure cuLiceriies 
par cette rubriqits « Notions d« Rhsh ». 

Operons done 
a coeur ouvert : 

Dans les memoiras $28 et $29 est stoc- 
kee Fadrcsse de la premise colonne de 
la ligne courante de Fecran (celle ou se 
trouve le cuiseur) dans la page TEXT 
(zone de memoire ou sont ranges les 
caracteres qui composent Tecran en 
mode TEXT). L'adresse $28 est ici 
reperee par !e symbole ADR. 

En $24- est stockee la position horizon- 
talc du curseur (0 a 39) , symbolises par 
H. 

En S9. nous stockerons le nombre de 
caracteres entres (LC) . 

$6 (E) seruira de « drapean » an 
2|j BASIC pouT une eventutille reiuunt&e 
g dans l'«nran (tourhe ESC). 

^ En S7 (LO). nous rangerons la lon- 
B gueur maximale autorisee pour 1q 
W reponse. 

^ En $8 (TY). stockage du type de 
I'information. 

$311 (ZY) est ladrcsso dc debut do la 
zone ou I'on stockera les caracteres 
entres au clavier, Cette zone se tiouve 
dans une « region » libre de I 'Apple 
($300 a $3CF) . On aurait pu stocker a 
partir de $300, ou aprSs la routine elle- 
meme, par exempie. 

$FDOC est l'adresse de debut du 
sous-programme du moiiileur qui 
fait clignoter le curseur ct attend 
qu'une touclie soil fiappee. Apies 
escecution, Ip. codc-fcran du carac- 



tere enlie se truuvt: duns I'dccuinula- 
teur (uous pnuve?. vniis reporter ai ix 
pages 44-45 de Pom's numeio 4 ou 
a la page 7 du « Manuel de. Refe- 
rence Apple II » pour avoir la liste 
des codes-ecran des differents carac- 
teres. 

$FDED est l'adresse dc debut du sous- 
programme du moniteur qui affiche a 
Fecran le caractere dont le code-ecran 
sa trouve dans TaccuTnulateur. 

Lignes 12 a 16 : neltoyaye de la mne 
de stockage ($80 est le code-ecran du 
caractere nul). Eii BASIC, tesi instruc- 
tions s'ecriraient : 

12 A$ = "" 

13 X = LO 
14ZY$[X)=A$ 

15 X = X-1 

16 ST X -OTHEN 14 

Lignes 17 et 18 : E-0. 

Ligne 19 : saisie d'un caractere. Rap- 
pelons que le rfeultat se trouve dans 
I'accumulateur, doii I'cmploi de I'ins- 
truction CMP dans les tests sur la valeur 
du caractere. 

Lignes 20 et 21 : si c'^ un RETURN, 
on saute S la fin de routine (FINl). 

Lignes 22 el 23 . X serl a compter le 
nombre de caracteres entrfe (a partir 
de 0). Si X = LO, on saute a SUITS. 
Lignes 24 et 25 : si le caractere est une 
« flee tie de gauche », on saute a 
RETOUR. 

Lignes 26 et 27 : on a entre un carac 
tgre de tiop. La routine-moniteur dont 
Fadresse de debut est $FBDD emet un 
« beep » et I'on retoume ensuite a la 
saisie de caractere. Ainsi, une fois la 

Liste en assembleur 
Lisa 1.5 



1 




01'i;G 




2 




O&J 


*8()() 


3 


ADR 


EP7. 


$28 


^ 


l-l 


EPZ 


^24 




LC 


g:pz 


i9 


6 


E 


EPZ 


S6 


7 




EPZ 


$7 


8 


TY 


EPZ 


*9 


9 


ZY 


EQU 


!t311 


10 


ge:t 


EQU 


fPDOC 


11 


OUT 


EQU 




12 




LDA 


**B0 


13 




LDX 


LD 


14 


de:po 


sta 


ZY,X 


15 




DEX 




16 




EPL 


DEPO 


17 




LDX 


*0 


18 




STX 


E 



19 


DEPl 


jsk 


GET 


21] 




CMP 


#*8D 


Zl 




BEQ 


FINl 


2.2 




CPX 


LO 


23 




BCD 


9UXT5 






CflP 


#$B£i 


2S 




BEQ 


RETOUR 


2^1 




JBR 


*FBDD 


27 




vIMP 


DEPl 


28 


SUIT5 


CMP 


#*9B 


29 




BME 


SUITi 


30 




CPX 


f 


3 \. 




BNE 


SUITI 


32 




LDA 


*9 


33 




STA 


E 


34 




RTS 




35 


SUTTl 


CMP 


**AC 


36 




BNE 


iiiUITS 


37 




LDA 


#*AE 


38 




JMP 


SiUITS 


39 


SUIT2 


CMP 


*$AE 


40 




\~'£Q 


SUITS 


41 




CMP 


**as 


^ ^ 




BhtE 


sun 3 


43 




CPX 


*o 


44 




BEQ 


SUITS 


45 


RE^TOUR 


DEX 




46 




DEC 


hi 


47 




JM.P 


DEPl 


49 


SUIT 3 


CMP 


f $95 


49 




E!ME 


GUIT4 


50 




LDfl 




51 




JBR 


$FEC1 


52 




LDY 


H 


53 




LDA 


< ADR) *Y 


54 




I.JMP 


3UITS 


l>5 


SU1T4 


CMP 


i$AO 


ti6 




BCC 


DEPl 


57 




CMP 


#*DB 


58 




BCB 


DEP 1 


59 




LDY 


TY 


60 




CPY 


#1 


hi 




BECJ 


SUIT 6 


62 




CMP 


#*AF 


63 




BC9 


/** 1 1 Mill •"V 

Bun 7 






CMP 


AD 


63 




BNE 


DEPl 


66 


bUI I / 


CMP 


#* EiA 


67 




E:C9 


DEPl 


68 


SUIT 6 


CPX 




69 




BNE 


SUITS 


70 




CMP 


t*A2 


'73. 




BEQ 


DEPl 


72 


SUITB 


J3R 


OUT 


73 




STA 


ZY,X 


74 




INX 




75 




JMP 


DEPl 


76 


FXNl 


3TX 


LC 


77 




RTS 
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longueur maximale atteinte, seuls 
RETURN ct ]a fleche dc gauche sont 
acceptfis. 

Lignes 28 et 29 : si ce n'est pas ESC, 
on saute a SUITl. 

I ignfls .10 Rt^ '-il : si FSC n'esi pas \p 
premier catadete saisi dans la zone, on 
saute a SUTTl (cet ESC sera ensuite 
refuse) . 

Lignes 32 a 34 : on position nc le 
« drapeau de remontee » (£=9) et on 
sort dc la routine. 

Lignes 35 a 38 : $i ce n'est piis une vir- 
gule, on saute a SUIT2. Sinqn, on la 
reraplace par un point {$AE) et on 
saute a SUITS. En effet. la virgule peut 
poser des problemes si Ws inform ations 
sortl ensuite stockees puis relues par 
INPUT sur disquette (EXTRA IGNO- 
RED). 

De plus, pour !es informations numeri- 
quB!?, i! faut traduire la « virgule fran- 
^aise en « point anglo-sjixon 

Lignes 39 et 40 : si c'est un point, on 
saute a SUITS. 

Lignes 41 et 42 : si ce n est pas une 
1! fleche de gauche », on saute a 
SUITS. Ce test n'est pas redondant 
avec celui de la ligne 24, puisque nous 
sommes maintenant dans ie cas od la 
longueur maximale n'est pas atteinte. 

Lignes 43 at 44 : si la flfirlift He gaur.hfl 
est le premier caracterc entre dans la 
7one (X = n), nn sautR a SUn"3 (gHg 
sera ensuite refusee par !a routine). 

Lignes 45 a 47 ; si la fleche n'est pas le 
premier caract^re, on diminue de 1 le 
nombre de caracteres entres (DEX), on 
recule le curseur (DtC M) et on 
retoume a la saisie de caractere (JMP 
DEPi). 

Lignes 48 ct 49 : si ce n'est pas une 
« fleche de drofte » . on saute a SUIT4 . 

Lignes 50 a 54 : si par contre c'est une 
flfeche de droits, on place la position 
ucrtlcale du curseur (stockee en $25 
par le systems) dans racturnulateur. 
La routine qui debute en SFBCl ua uti- 
liser valeur pour taltukr I'adresbe 
de la premiere colonne de la ligne cou- 
rante qu'ells ranye eusuile en $28 *il 
$29. 

On tronsf^re alors la posifion horfeon- 
tale du curseur (H) dans Y et on ua lire 
dans la page TEXT le caractere qui se 
trouve a la position H dans la ligne 'V 
dont le stockagc dans cetie page com 
mence a I'adresse cpnlenue dans 

ADR, c'est-a-dirc Ic caractere sur Icqucl 
a passe » la fleche a I'ecran. On saute 
ensuite a SUITS (affichage) . 

Lignes 55 et 56 : si le caractere est infe- 



rieur a « SPACE » (caractere de con- 
trole). on le refuse. 

Lignes 57 et 58 : si le caractere est 
superieur a Z, on le refuse. 

Ligne Ij9 . la suile de Tandyse depend 
alnrs du type de donnee, que Ton 
charge dans le legistie Y. 

Lignes 60 et 61 : si c'est une donnee 
alphanumeirique. on passe a SUIT6. 

Lignes 62 et 63 : si le caraaere est 
superieur ou cgal a "/". on passe a 
SUIT?. 

Lignes 64 ei 65 : ftant doric inferieur a 

"/", on le refuse s'tl est different de 
"I tt 

Lignes 66 et 67 . s'il est superieur ou 
egal a on le refuse 

Lignes 68 a 71 : on refuse les guLlle- 
mets s ils sont en premier caractere 
(problemes ulterieurs possibles avec les 
ordres PRINT). 

Ligne 72 ; le caractere etant mainte 
nant accepte, on I'affiche a Tecran. 

Ligne 73 : on le stocks dans la zone 
r^servle ^ cet usage, dans la * case » 
num^o X, 

Lignes 74 ei 75 : on passe au caradeie 
sniu^nt 

Lignes 76 et 77 ; on stocke le nombre 
de caracteres entres : fin de routine 
pour retour au tJASIC. 

L'interaction entre ce programme en 
langage machine et !e programme 
BASIC est assuree dans le sous- 



programme BASIC des lignes 149 a 
169. Celui ci est appeic pour chacune 
des informations a fournir. Nous n'en 
commentcrons que les points qui inte 
ressent directement notrc suiet. 

Ligne 149 : ME = 2 ou X = 1 signalent 
que 1 on ueut un affichage du contenu 
de la variable. B% =8 assure une sor- 
tie de la routine directement apres cet 
affichage. 

Ligne 150 : on transmel (instructions 
POKh) a la routine-machine les para- 
metres de I'information a entrer, puis 
on lance son execution (CALL 
37350). A noter que Ton place a 
I'adresse 36 ($241 la valeur H- 1 et non 
H, car BASIC fait sea HTAB de 1 a 40. 
alors que le moniteur calcule de a 39. 

Ligne 154 : nous sommes deja de 
retour au BASIC I Les resultats da la 
saisie de caracteres se trouvent aux dif- 
fcrcntes adresses definies dans les 
lignes 4 a 9 de la routine-machine, 
L'instruction PEEK nous perniet de les 
recuperer, E = 9 signale que la touche 
de fonction ESC a ete utilisee et que 
roperateur d&ire « renionter » sur 
I'ecran . 

Eigne 1.56 ■ LC = si seul RETURN a 
ete entie. En consequence, uu quittera 
le soufi-prngramme en laissant le con- 
tenu de la variable inchange. 

Ligne 158 ; BASIC recupere mainte- 
nant les diff^rents caracteres stockes a 
partir de I'adresse 785 ($311) et 
reconstituc la donnee dans son ensem- 



Recapitulation du code binaire 



91E:6- 


A9 


30 
















A 6 


07 


90 


11 


03 


Cfi 


10 


FA 


91F0- 


A2 


00 


86 


06 


20 


OC 


FD 


C9 


9tfa~ 


SD 


FO 


72 


E4 


07 


90 




C9 


9200- 


88 


FO 


28 


2 


DD 


FB 






9208- 


91 


C9 


9B 


OO 


09 


EO 


00 


DO 


921(1- 


05 


A9 


09 


85 


06 


60 


C9 




9218- 


DO 


05 


A9 


AE 


^fC 


63 


92 


cv 


9220 




FO 


^0 


C? 


88 


DO 


OA 


EO 


9229-- 


flO 


FO 


06 


CA 


C& 


?A 




F4 


9230- 


91 


C9 


95 


DO 


0C 


A 5 


25 


20 


9238- 


CI 


FB 




2^ 


esi 


28 


-IC 


63 


92^0- 


92 


C9 


AO 


90 


AF 


C9 


DE: 


BO 


92^8- 


AB 


M 


08 


CO 


01 


FO 


OC 


CV 


92S0- 


AF 


BO 


0^ 


C? 


AD 


DO 


9D 


C9 


9253- 


E!A 


eo 


99 


EO 


00 


DO 


04 


C9 


9260- 


A2 




91 


20 


ED 


FD 


90 


:il 


9268- 


03 


E8 




F4 


91 


G/i 


09 


60 
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ble {ZZ$). A notei que Ton enleve 128 
aiix codes lus en memoire pour retrou- 
ver les codes ASCII standards du 
BASIC (ceux des tonctions ASC et 
CHR$ - Cf, pages 138 et 13Q du 
Manuel de Keterence Applesoft) , 

Lignes 163 h 167 : on v^ie que b 
date correspond bien au format uoulu. 
a savoir JJ/MM/AA. 

Le reste du programme BASIC consU- 
tue un exemple d' utilisation de 



l ensemble « routine-assembleur » plus 
« routine BAiifC ». IMous vous laissons 
le soin d'en conduire vous-memc 
I'analyse et d'en deduire la fagon d"int§- 
grer cet * INPUT generalise » dans vos 
propres programmes- 

En guise de conclusion, nous lancons 
un appcl au peuple ! Cette rubrique 
« Notions de Base » est destinee aux 
lecteuTS qui partent a la decouuerte de 
leur Apple, et bien souvent de I'iiifor- 
matique elte-meme. Afin que nous 



puissions ToTienter dans un sens favo 
rable au plus grand nombre. n'hesitez 
pas a nous ecrire pour nous signaler Ics 
problemes que vous voudnez voir trai- 
tes. 

Seion la nature de votre courrier, nous 
repondrons par des articles du mSme 
type que celui que vous vsnea de lire, 
ou par une sSrie de counes explications 
SLUT certains points tres precis An plaisir 
de vuuh lire... 



Liste du programme BASIC 

1 HTfiFM5 :i73^() 

S i:>4 CHR4 (^5! PRI.m D$"BLOAD 
INPUT, OBJ"; GOTO 100 

70 yTAE 21 : HTAE: 11 INUEftSE 5 PRINT 

zilt;; NORMAL ; input ■■ ? ";z 

t; UTAE: 21 : CALL - 8(^.9 iZi - 

LEFT* (Z*,1)J IF Z* "0" OR 
L% - "N" THEN RETURN 

71 GOTO 7 

30 VTAE V5 HTAE: iJ CALL 868 

31 INUERSE : PRINT 2« ; : NORMAL J 

?a TEXT : HCHE : HTAB 2U LEN 
(Zt) / 2: XNUEI^9E : PRINT Z* 
: h^QRMAL J RETUF^'f^ 

Ifi VTAE U; HTAE: H: PRINT LEFT* 

(pot,LO>" "^^ ^tab yt htab 

H: IF ME 2 OR )C = 1 fHLN Pf(iNT 
ZYtCLL) ; IF B"Z = Q THEW 16Q 
ISO yjAB V! POKE 9,TY; poke 36, H 

- 1! POKE Z.LOr CALL 37350 
1S4 LC - PEEK (9):E =: PIZEIC tilt 

li' E = 9 IHtN KLIUKN 
156 ZZ* = CALL -■ 9ASt IF LC = 

Q THEN 168 
158 FOR IZ = :l TO LC:Z - PEEK ( 

7B^ i zz) - i2a;zz$ - zz* + 

CHR* (Z.M WEXI 
U2 II- TY <. 3 THEi'-} RETUPiN 

IF «ID5^ i:ZZ*,Z,l> = "/" THEN 
77$ - "0" -! ZZ* 
li't IF MID* (ZZ*,S,1) - "/" THEN 
ZZ* LEFTS (ZZ*,3) + "O" + 
RICHT4 CZZt,4> 
16U IF LEN (ZZ*) < > THEN Zt 
= i1Et(3}5 GDSUB 190 1 GOTO 1 
49 

16i L'i VAL ( MID? (ZZ*,i,2)): IF 
UAL C LEFT* (ZZt,2)) > 31 OR 
> 12 OR Z4 V. VAL ( RIGHT* 
<ZZ*,2)) < =-0 THEN Zt = ME 
${3)t GDSUB 190 3 GOTO 149 
1A7 KtlUKN 

Ue IF ME = 2 OR X = 1 THEN UTAE: 
V; HTAB H;ZZt ^ ZYt<LL,3; PRINT 
ZZt SPC( LO - LEW rzit,)) 

U7 RETURN 

1?C yiAf:! Zll HI fib! i: CALL - 863 
; IMUFRSIE % FOR Z ^ 1 TO 150 
;Zi " PEEK C - 16J36)5 NEXT 

: PRINT z$;: normal t for z = 



I TO 250EI: MEXT I HTAE5 It CALL 
- B6ai RETURN 

^QO DATA DONNEE ALPHA l.DOhiMEE 
ALPHA £fDQNKEE NUM l.DONNEE 
NUi^ 7, DATE 

41(1 DATA lf4, 17,20, 1,6, 17, 10, 2, 
8p1S,6,2,1B,15,3,3,1Z,7,U 

^2 DATA ENRECISTREHENT CONFIRM 
E; , E NTREE , APPUYER SUR "-RETURN 
' APRFS LECTURE^ MODIFICATION 
,DATF INCOf^RECTEtCONSULTATIO 
N 

'431) FOR 1 = 1 TO St READ LI*(IK 
NEXT : FOR I - 1 TD Tjt READ 
TY%(I> ,Zy7.(Ii tZHXd) .ZL/'(I) : 
i^EXT S FOR I •= 1 TO 3t READ 
MK$(I) , l"t(i> 3 NEXT 
'HO PO* = 

50 C - i; FOR I 1 TO 5:ZY*<I) = 
""I NEXT 

51H Z* = l*(L)^ GDSUB 90IBK == 8 » 
(C > 15! FOR I ^ 1 TO 'Si UTAB 
Zy%<I)! HTAB ii PRINT Li:*CI) 
"t "t NEXT ;X = 1. CE% = a) 
{ME - 0;D% - 1;M - 23iZ4 = " 
'EBC RENVaiT AU NIVEAU BUPE 
RIEUR": GORUB Si) 

5ZQ FDR LL - TO 5 J TV - TYX(LL 

):m ~ zv%(LL):h ^- zh7.(ll);lu 

=^ 2L%(LL) 
3-JfJ t- = o: GdSUB 149: IF E - 9 AND 

LL = 1 THEN LL - S: NEXT ! GOTO 
600 

54fJ IF E - y AND ME == U (HEN LS = 
LL 

330 IF E - 9 THEN LL LL ' 2 i ME 

= 21 Rnin 57 n 

S60 ZY$CLL) - ZZt>iME - 2. « ( LL < 
L% - U 

570 NEXT iLZ - : IF C - 3 THEN 

z$ ^ «E»iz);v =^ zi: gusue bo 

; GET Z«; GOTO 50 
3B0 ZM$ - MEt(l); GOSUD 70 ; IF Z* 
= "N" THEN X I'.B'/. (MDZ " 

5t GOTO 520 
590 C =^ C + i; GOTO 510 
6Q0 L% = 0! IF (- > 1 THEN C ~ C - 

II GOTO 510 

6111 74 "TRAITEMENT PRECEDENT "J GQSUB 
90! FDR Z - 1 TO 20 00 5 NEXT 
I GOTO 30 
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Ergonomie des programmes 

Guy Mathieu 



Prindpes generaux 

Entre deux « bons » pTogrammes. 
c'est-3-dire &rits sans erreurs, donnant 
les resultats attendus, avsc des temps 
de travail corrects, etc.. Fun peut Stre 
vraiment bon, et admis comme tel par 
ses utllisateurs, et I'autre rejerfi. 

La diff&Hdttr ferii. souvenl dans ch qui 
peui apparavtre commne rninei.it ' la 
presentation des ecvans et la facilite 
d'nfili^ation dp.s rlauier!; (cp. dernier 
point etant etroitement lie au materiel 
utiiise). Nous utilLtierons le vocable 
« ergonomie des programmes » pour 
designer tout ce qui, dans un pro- 
gramme, est fait pour facilifer la relation 
entr€ I'utilisateui et limpersonnd 
« systeme ». 

La premiere chose qull convient de 
noter est la saivante : hormis quelques 
personnes tres averhes. ayant deja eu 
maintes occasions de travailler en utill- 
sant un dialogue ecran-clavier, te futur 
unhsateuT ne saura pas expliquer ce 
qu'il veut. ni choisir en connaissance dc 
cause entre des propositions qu'on lul 
fera, memc etayees de fac-simi!es sur k 
papier : car i'Scran « bouge », le 
charnp de vision n'est pas le mcme, les 
contrastes different, les jeux de caract^- 
res sont differents. toutc la dynamique 
du dialuyuK s'tifface derriSre quwlquts 
schpmas statiques 

{he seule solution : 5imuler le futur 
outil de dialogue, quasiment a I'identi- 
que .si cette simulation se fait sur le 
materiel qui servira plus tard de support 
§ Tapplication reelle : au plus pres si, 
por esemple, on simule 3ur micro- 
ordinatetJT une application qui utillsera 
dans la realite un gros systeme multi 
terminaux. 

Mais il faut bien se rendre compte 
qu'on nc pourra avancer autremcnt 
que pas a pas ; la simulation du dialo- 
gue compiet n<} s<;ra done possible que 
quand letude sera suffisamment avan- 
cee, mais pas trop, afin que peu d ele- 
ments Solent figSs davance. 11 peut 
done etie interessant de realiser une 
premiere approche grace a une 
« pedagogie du dialogue ecran- 
clavier i^, appuyfie sur un programme 
de simulation permettant de mieu>; 
montrer aux futuis utilisateurs ce qu'ils 
peuuent attendre d'un tel dialogue. 



Presentation 
du programme 

C'est un programme ayant cet obj^ictif 
que nous vous proposons. II fait « d^fi- 
ler » des genres d ecrans varies, et per 
met de tester des commandes de 
divors types (il est bien sur congu pour 
Apple 11). 

Le premier ecran (instructions 5000- 
5040) demande I'entree de deux don- 
n&es alphanumgriques. 11 ^met une 
seule exigence : au moins 1 caractere. 
n avertlt d'une trappe RETURN trop 
hative par un message cUgnotan! {un 
trciitement des erreurs permettrajt en 
outre d'afficher un message si le fiehier 
demand^ ne se trouvait pas sur It: dts- 
que ■ notre programme complet com- 
prend cette option). 

Le deuxieme ecran (instructions 5050- 
5095) propose 3 choix (4 avec I'an^et) 
et demande une reponse numerique. 
Toute reponse numerique hors four- 
chette amene un message clignotant (il 
aurait egalement ete possible de saisir la 
reponse en alphanumerique, pour evi- 
ter le message sysleme « REEiNTER » 
en cas d'entree d'une reponse non 
numerique. 

Quel que soit !g choix effectue Ssauf 
arret), I'ecran suivant (instructions 
5200-5500) propose la liste des pro- 
duits (bien cntendu, dans une applies 
tion reelle, il faudrait proceder en « cas- 
cade » a partir de groupes dc produits) . 
La reponse se fait en depta(;;ant le cur- 
seur sur I'&ran. Sur I'Apple 11, il 
nexiste pas de fleches de deplacement 
I et .on utilise done les Heches 
— et — ^ pour monter et descendre. 

RETURN provoQue la recherche du 
produit voulu. La frappe de RETURN 
sur la premiere ligne vierge permet de 

aortir de I'option. C'est une regie gene- 

rale : ne pas construire d'eaan dont il 
soit impossible de s'evader. 

Anetons-nous un instant sur cet usage 
de la louche RCTURN : elle est nor- 
malement utilises sur I'Apple II pour 
marquer la bonne conclusion d'une 
action, une entree de donnces par 
exemple. U s'y attache ainsi. des qu'on 
a acquis quelquc habitude de 
I'Apple II, un sens positlf, d'approba- 
tion, d'acquiescemcnt. C'est ici le cas 



quand. apres avoir deplace le curseur, 
on se trouue an bonne position : OUI, 
cest bien ce qu'on voulail. 

A I'oppose du clavier, la louche ESC 
peut etre. programmep. pour joupr nn 
role negatif. de refus, d'erreur, Le 
choix entre I'aitemance RETURN ei 
ESC passe tres vite dans les mceurs. 
Ces touches sont utilisees pour confir- 
mer ou infirmer la suppression d'un 
article ou le souhait de recherche ou de 
creation d un article (90U3-pT0gramme 
500-550). 

Reqardons maintenant t'ecran de saisie 
des donnees relatives a un produit (ins- 
tructions de 2000 a 2350 et sous- 
programme 300-309), La encore, 
RETURN trouve son sens d'acquiesce- 
ment : on I'utilise pour conserver la 
donnSe afflch^e sur I'&asn s'il y en a 
une. 

Des contr6l(!s sont realises en outre sur 
la longueur des ^ones et sui la viaisem- 
blance des donnees numeriques. 

La suppression d'un article se lait d'une 
fagon un peu artificielle par CTRL-A : 
une double touche pour eviter toute 
fausse manoeuvre. De plus, une confir- 
mation est demandee. II est particulifi- 
rement important pour la tranquGlite de 
Tutilisateur qu'une manoeuvre risquant 
de dctruirc tout ou partte d'un fiehier ne 
puisse pas etre effectuee par simple 
efflGuremcnt d'une louche. 

A noter que I'entree d'un nouvel article 
se fait en deux stades : d'abord en 
choisissant sur Tecran des produits une 
ligne vierge (y positionner le curseur, 
puis RETLIRN ensuite. en entrant les 
donnees, y conipris la libelle), 

N.B. Dans I'exemple propose, nous 
n'avon.q pa.", programme I'option « trai- 
tement ». 

Aspects ergonomiques 
generaux 

D'tinp. fagnn plus; gfinSrale, qupllp.s sont 
sur I'Apple II les |x>ssibilites de jouei sui 
Tergonomic Hps programmps lors du 
dialogue utilisateur-systeme ? 

1 - Le clavier 

Nous avons deja vu un exemple de 
gestion du clavier avee I'utilisation des 
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trois touches : RETURN, ESC et barre 
d'espacement. 

Une lacune impoitante da I'Apple 11 est 
I'inGxistance des fleches de deplace- 
ment vertical du cursaur. Quand le 
besoin se fait scntir de deplacer le cur- 
seur dans les 4 dimensions, il extste 
deux possibilites : 

— ou bien designer des touches alpha- 
betiques pom les 4 mouvemetits (ex. : 
Irs tnuchfis 1, rl, M iitilisee,si en pro- 
gram mation api es CSC) . C'est tres arti- 
fidel ; 

— ou bien n'utiliser que tes deux tou- 
ches de deplacement horizontal et en 
inverser ia signification a iaide dune 
touche jouont le role de bascule (grace 
a la basse d'espacement. dans le cas du 
programme Viaicalc). 

Dans les editions de type latin {de gau- 
che a droite et du haut vers le bas) , on 
a alors : 

• une fl^he d'avance ; — bas, 
droite 

• une fleche de recul — , haut, gau- 
che. 

Attention a utiliser a bon esaeni [es 
deux lypeb il'eiiLiees. en mode GET 
ou pcir INPLTT (awe le RETURN) : Ip. 
GET d urn dspecl deftiiitif et doit etre 
siiiuj de rnntrnle'i, alnrs que la possibi- 
lite de retoui" arriere avant un RETURN 
a souvent un aspect securisant. tn 
revanche, le GET permet d'utiliser 
toute touche avec une signification par- 
ticuliere a I'application consideree. en 
particulier d'ailleurs d'autoriser ['utilisa- 
tion com me en mode INPUT des fle- 
ches pour la conection. 

2 - L'ecran 

D'abord, n'y point trop BCrire : ssuf 
pour les libelfe qui revieniient souvent, 
et qu'on connait vitc par cceiir ; I'fcran 
est alors un rappel. Evitei des testes 
trnp long.s : si possible, n'ecrire qu'une 
ligne sur deus, Une page entiSre de 
consignes sera generalement plus utile 
sur une feuille d'instructions. 

En suite, on peut utiliser toutes les pos 
sibilites de gestion des caracteres : flash 
et inverse, litres encadres. ralentisse 



ment de la vitesse d'inscription. . . Si on 
travaille en graphique. utilisation ration - 
nelle de la couleur et des graphiqucs. 

Ne pas en abuser : on remarque au 

premier coup d'oeil un message cligno- 
tant isole. On ne remarque plus rien si 
on voit trop souvent des flashes, des 
tcxtes inverses et autres « fantaisies » . 

3 - Le son 

Vous disposez d'une part de la clo- 
che ». d'autre part de la possibilite de 
programmer des sons plus complexes, 
voire de la musique. 

A utiliser a bon escient. Ne pas oublier 
que pour I'utilisateur quclquc pcu habi- 
tue a 1" Apple 11, la cloche simple signifie 
Ig plus souvent qu'une erreur vient 
d'etre remarquee par le programme : 
ne pas uflliser le meme son pour mar- 
quer une approbation ! 

Penser aussi § la « pollution sonore » : 
un bruit attirant Tattention de temps en 
temps, sur une erreur par exeriipie, 
peut etre utile. Une trop grande abon- 
dance de messayes sanoies devient 
utte irritante, et done inefficarc. 



Aspects ergonomiques 
specifiques 

Lgs observations qui precedent sont 
valables pour tous les programmes. 
ChaquG programme particulier peut 
posseder ou non des vertus ergonomi- 
ques liees au contexte dans lequel 
opere Tutiiisateur. Nous n'entrepren- 
drons pas d'en faire un recensement 
exhaustlf. mais quelques points iiieri- 
tent d'etre cites, par example : 

— si les entries erran Smnnfint d'un 
document, il est necessaire quelles 
soient effectuees dans I'nrHrp. normal 
de letturti du document ; 

— s! elles resultent de plusieurs docu 
ments, epuiser, sauf impossibilite abso- 
lue. les informations provenant d'un 
document avant de passer au suivant ; 

— meme chose si certaines informa- 
tions apportees par l'ecran doivent etre 



Tccopiees, par exemple pour completer 
un imprime ; 

- pour les graphiques, calculer les 
echelles de fagon a mettre en relief les 
phenom6nes inlSressants 3 observer, 
tout en evitant des difficulfes d'interpre- 
tatlon des dites fehelies ; 

— s'il faul utiliser des symbules. des 
formulations inhabitnellps, assurez-voiis 
quOs seront compris sans ambiguitfe : 
tout le monde ne sait pas ce qu'est une 
echelle logarithmique, ou la represen- 
tation d'un nombre en notation scienti- 
fique ; 

il en est de memc du vocabutaire 
utilise et des abreviatlons : ce qui est 
sans equivoque pour le concepteur du 
programme ne Test pas nScessairement 
pour I'utilisateur ; 

— quand un temps d'attente se pro- 
dult (calcul, lecture de fichier), I'ulilisd- 
teur doit etre prevenu afin qu'll ne 
s'impatiente pas, ou ne croie pas> que 
Tordinateur est en panne Trois ras 
peuuenl se pr&entei : 

• on connat le temps d'attente (par un 
nornbie d'aiticles a lire en fichier, ou de 
boucles de calcul a executer) : afficher 
une approximation de ce temps — cf. 
instruction 5U35 du programme ; 

• le temps d'attente se decompose en 
phases successives : afficher entre cha- 
que phase un bref message donnant 
I'etat d'avancement — event uellement, 
en profiter pour glisser un message rap- 
pelant a Foperateur ce qu'il devra faire 
ensuite ; 

• un temps relativement long, mais 
non calculable (c'est en outre le cas du 
garbage collection, pour qui n 'utilise 
pas I'approche presentee dans 
Pom's 2) , va se derouler sans phases 
tntermediaires : placer un message 
expliquant ce qui se passe, et foumis- 
sant si possible le delai maximum au- 
dela duquel I'utilisateur sera en droit de 
penser a une defaillance du systeme. 



Creation d'un fichier 

Pour CT&er un nouveau fichier, idlie 
RUN 6000. 



DIM LI* (20) : GOGUB 



3LTST 

10 D* = CHR* (4) 

000:2ERD* = " 

" : UN* = " 

■' : □□TO DOOO 

100 REM 

ECRITURE DU FICHIER PRODUITS *** 
110 PHltNl iJ¥"UPENPt^0DUIT5" V^Oi^*; LeO" : 
PRINT D4"tJHITEPR0DUITS" ;W0M4 - R 
";CP: PRINT Ll* 
150 FOR I = 1 TO S: PRINT Cfi(I); NEXT : 



200 
*** 

210 



235 
2d0 
2a 



PRIM D*"CLDSEPRaDUi ia";NUP1*s Kb 
TURN 
REfl 

LECTURE DU FICHIER PRODUITS #*♦ 
PRINT D*"aPENPRODUlTG" ;WOI^«; 

PRINT D$"h£flDPHODUITS" ;NaM*; 
;CP: IMPUT LI* 
IF Lit = THEN 260 
FD» 1 = I TO 6: IMPUT Cfl ( > ) : i>£ 
PRINT D*"CLOSEPRDDUITQ" pNOI^ts R 

H 



.60" ; 



XT 

ETufi 



^4 
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300 



305 
306, 



307 
30fl 
309 
5tiO 
*** 

505 
510 
520 
525 

550 
600 

610 

&20 



650 



HOME : PRINT "ETflBLISBErlENT ; "^ET* 
: VThB 3: PRi'VT "^^ICHc PRODuIT " s 
VTfiB 5i PRINT "DESIGhjPlTIDIV (' CTH 
L ft' POUR SUPPRIf^iERj " 5 VTRB 7: PR 
TNT " ";LIt 

FOR I - 1 TD e 

VTfiB I + as PRINT CGt(I);" ";; IF 
> THEN PRINT Cfl ( I ) 
THEN PRINT 



*** 



) 27 iHEN PR 



cn ( I ) i 

IF CR(I) = 
NEXT 
RETURN 

GESTION RETURN ET ESCPlPE 
POKE - 16366,0 
PRINT '■ <RETURN/ESCflPEi 
GET Z*!2 = PiSC (Z«) 

IF z ( > X3 am I < 

INT " " ; : SOTO 520 
RETURN 
REM 

FICHIER NDMS *** 
PRINT D»"OPENPRaDUITS" ; NOmt ; ", L60" 
FOR CP = 1 TO 20i PRINT Df'RERDPROD 
UIT5" ;NOP)«; ■■, R" ;CP! INPUT Llt(CP) 
1 NEXT 

PRINT D«"CLD8EPhQDUITS" ;NOM* : RETUR 
2000 RFM 

»»* MISE ft JOUR DU FICHIER *»* 

2005 FOR I = i TO a:Cfl(I) = OJ NEXT : G 

OSUB 200 
2020 eOSUB 300 

2030 VTflB 7! HTBlB l: INPUT 04 



2035 
2036 

2037 

2036 
2039 
2040 

2050 



2070 

2oao 

2090 
2100 

2120 



2 1 30 



1 40 

:160 
:i70 



2210 
2220 



FDR I 
SOTD : 



PRINT 



= 1 
170 



IF Rt < > CHR* U) THEN 2040 
VTflB 20: PRINT "CONFIRMEZ L« SflPPR 

ESSIDN QQSUB 500 

IF Z = 13 THEN H* = '■ ■■ 

TO SiCRdI = 0: hIEXT 
IF Z - 27 THEN RETURN 
PRINT " ": GOTO 2036 
IF ft* - ■"' THEN VTRB 7 
;Ll*! BOTO 20S0 
Lit = fit! IF LEN (LI4) < 5 OR LEN 
(Lit) ) 33 THEN GOGUB 13000! VT 
RB B: PRINT ZERO?;! VTRB 7: PRINT 
2ERG»;; GOTO 2O30 
VTRB 23: PRINT ZERO*; 
FOR I = 1 TO a 

VTRB I + B4 HTRD 31! INPUT R* 

II- R¥ = THEN VTRB I + 8: HTflB 

32: PRINT Cfi(I>! GOTO 2160 
IF LEN (flS) = O OR LEN tft*) > Lb 

(1) OR VRL > MG(1} THEN GO 

GUB 13000! VTRB I + Ss HTRB 32s P 

RINT UN*: SOTO 2030 
GOSLiB 13100: IF ES = 1 THEN ER = O 

: VTRB I + a: HTRB 32: PRINT UN*: 
GOTO 2090 
VTRB 23: PRINT ZERO*;iCRa) = VRL 

NEXT 

Q05UB 30O; VTRB 20; HTRB 1: PRINT 
"O.K. POUR ENREGISTREMENT ?" : GOS 
UB 500 

IF 2 = 13 THEN 2240 

UTPB 22! HTRB i: PRINT "RETURN POU 





LA 
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PSE EN (£(IV11EDIf BUS IEEE 48S. msium stieallsaHand'apf)ar«il5. Part^raid BaslideetJe3r)-Ren«i/ell3:£. 
Plus de rnille appareils sont equipss en IEEE 488. Ce livre decrit commsnt mettr e en muwe toutes 
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R COWSERVER ": PRINT "SIWDhi RETflP 

EZ LIBsME": 50TD 2020 
2240 PR TNT : BOfii IB UXi: HOME : PRIhiT "ft 

UTRE RETICLE ?"s GOSUB 500: LI* (CP 

) = LI* 
2350 IF Z = 13 THEN 5200 
24O0 RETURN 
4000 REM 

*** CONSULThlTION *** 

4010 HO;*IE : GOSUB 200: G03UB 300 

4020 VTfiB 2ft; PRINT "BQRRE D'EBPflCEMEMT 

POUR Lfi SUITE";: eOSUB 12000 
4070 FOR I = 1 TO QsCfl(I) = 0: NEXT : H 

□ME i PRINT "AUTRE flR'aCLE ?"! SO 

SUB 500 
4120 IF Z = 13 THEN 5200 
4130 RETURN 
5000 REM MENU 

5005 HOME •■ VTflB is HTflB 7: PRINT "GEST 

ION DU FlCHlER-PRGDUiTS" 
5010 VTfiB 6: INPUT "NOM DE ETflBLIBSEW 

EMT ? ";ET* 
5015 IF ET$ = THEN VTflB 3'> FLASH : 

PRINT "flU M0IN5 1 CPiRfiCTERE S. V. P 

. ■■: NOHMPL ! BDTQ 5010 

5019 OTRB 9: PRINT ZERO* 

5020 VTftB 3: It\PUT "NOW DU FIChlER-PROD 

UTTS ? ";WQ|i1* 
5025 ir NGM* - "" THEN VTflD lH FLftSH 

: PRINT "fiU MOINS 1 CPiR«CTERE S. V 

.P. " : NORMAL : GOTO 5020 
5029 VTftB 11 ; PRINT ZERO*' 
5035 VTAB 14: PRINT "PPTTENCE POUR QUEL 

SUES SECONDES" 
5040 eOBUB 600 

5050 HOME : PRINT "V0ULE2-V0UB PRIM 
T 

5060 PRINT "1 - METTRE fl JOUR LE FICHIE 
R": PRINT "2 - CONGULTER LE FICHI 
E«": PRINT "3 - EFFECTUER UN TRRI 
TEMEMT"! PRINT : PRINT " (O PD 

UR flRRETER) " 

5035 VTflB 13: INPUT " yOTRE CHD1)C ? 

";SU: IF SU = THEN HOME i PRIN 
T "fiU REVGIR": END 

5095 IF GU { O OR SU > 3 THEN GDSUB J 3 
OOO! VTHB la: HTHB 18 i PRINT UN*; 
GOTO 5085 

5200 HOflE I PRINT "LISTE DE3 PRGDUITS" J 
\)im 3J FOR I - 1 TO 20: PRINT L 
I*<I)! NEXT !HT = 5:i_M = 20: eOSU 
B 30000 
PRINT : IF CP = THEN 5050 
ON SU BOSUB 2000,4000,10000; BOTD 

5050 
REM 

#** CREATION DU FICHIER *** 

6005 D* = CHR* 44) : TEXT : HOME : VTOB 



5260 
5500 

GOOO 



H HTRB 7: PRINT 
ICHIER" :ZER04 = ' 



"CREflTIOM D'UN F 



6010 
6015 



6019 
&025 

6030 



VTflB 6: INPU1 "NOM DU FICHIER-PROO 

UITS ? ";nOM* 
IF NOM* = ■■■■ THEN VTRB 3: FLASH : 
PRINT "fiU MOINS 1 CARACTESE S. V. 

P. "s NORMAL ! GOTO &010 
VTftB 9: PRINT ZERO* 

VTRB 12: PRINT "PATIENCE POUR DUEL 

QUES SECONDES" 
PRINT D*"OPEWPRDDLnTS" :N0M4; LSO" 



I PRINT D*"OELETEPRODUITS";NOM$: 
PRINT DS"OPENPRODUITS" ;IViOMS ; " , LflO 

II 

6040 FOR CP = 1 TO 20: PRINT D*"WRITEPR 
ODUITS" ;NOM« ; " , R" ;CP: PRINT "": W 
EXT « PRINT D* "CLOSEPRODUITS" ;NOM 
$: END 

lOOOO REM 

PRD5Rfti'li'f|E DE "RAlTEmENT *«■» 

10010 riflMF ! PRINT "TRfilTEMENT NOW PROG 
RAM ME " 

10020 VIPB 10! PRINT "BflRRE D'ESPflCEMEN 
T POUR Lft SUITE";: BOBUE 12000! R 
ETURN 

12000 REM *** OTTEiviTE *«-* 

12010 POKE - 16366, OS PRINT " 

12020 Z = PEEK ( - 16384) ! IF Z < =12 

a THEN 12020 
12025 POKE - 16368,0; RETURN 
13000 REM *»* RFFUR *** 

ISOiO VTRB 23" FLASH « PRINT " ENTREE R 
EFUSEE "! NORMAL : RETURN 

13100 REM *** CDRnCT. NUf^tR. *** 

13110 FOR JJ = 1 TO LEN !P$) :flfi = AbC 
( MID* JJ, I ) ) 

13120 IF (Aft > 47 AND Aft ( 56) OR AR - 
46 THEN NEXT : RETURN 

13130 VTflB 23! FLASH : PRINT " CHIFFRES 
SEULEMENT S. V. P. " 

13140 ER = i:jJ = LEN (P*) : NORMAL : RE 
TURN 

15000 REM *»•* LIBELEES C^RfiCT. **♦ 

15010 DflTfi CODE ARTICLE i6 CHIFFRE 
S) 

15011 DATA CODE FDURN155EUR (4 CHIFFRE 
S> 

15012 DATA CODE CfiBIER (4 CHIFFRE 



Ci CHIFFR 



15013 DATA CODE REAPPRO. 
E) 

15014 DATA POIDS DE LA PIECE 
G) 

15015 DATA PRIX UNITflIRE {FR. CM 
. ) 

l^vOlF. DfiTfi BTOCK MINT (NDMBR 
E> 

15017 DATA OUANT- R COMMANDER (NOMBR 
E) 

15019 FOR I = 1 TO a: READ CG* t I ) : NEXT 

15020 DATA 6,4, 4, 1,7,7,3, 3 

15023 FOR 1 = 1 iU 8: KbHU Lb ( 1 J : NEXT 
15030 DATA 999999, 9999, 2999, 9, 100, 1000, 
200, 500 

15035 FDR I = 1 TO 8: READ MG(I): NEXT 
15200 RETURN 

30000 REM *** POSITION DU CURSEUR *** 

30001 VTAE 24: PRINT "MOfJTER < (-) , DtS 
CENDRE (->) , RETURN"; 

30002 CP = 0: VTAB CP + / 

30005 HTRB HTs GET ZtiZ A3C <Z*) 
30007 IF Z = 13 THEN RETURN 
30010 IF Z = 21 THEN CP = CP 1 
30015 IP Z = 8 THEN CP = CP - I 
30017 IF Z ( > 13 AND I i > 21 AND Z 
\ > a THEN PRINT " " ; ; QOTO 300 
05 

30020 IF CP < =0 THEN CP = 
30025 IF CP ) = LM THEN CP = LM 
30030 VTAB CP + 2: BOTO 30005 



26 



Fom's n" 6 



Un programme de HELLO complet 



Thierry Le Taliec 
Jacques Trar\-Van 



Le programme le plus frequeflnment 
Utilise est sans contests le programme 
HFl.1.0. oil RONJOLfR. qui nou«sert 
a « booter » tes disquettes, De nom- 
brcux programme!; ont deja ftte propo- 
ses a eel effet, chacun ayani ses avan- 
tages propres. Nous avnns vnulii reuntr 
dan5 un progiamme unique les possibi- 
lites qui nous paraissaient les plus inte- 
ressantes, a savoir : 

— affichage du volume, des secteurs 
libres et de 40 titres ; 

— lancement des praqrammes par 
enfonccmcnt d'une sculs touiche ; 

— chargement jusqua cinq fois plus 
rapide ; 

— test de ia carte lanyaye et cliarcje- 
mcnt de I'lNTEGER en 5 sexrondes : 

— changement de driue auec les fle- 
ches gauche et droite : 

— delete par CTRL-D suivi du code 
du programme ; 

— lock/ unlock par CTRL-L, suivi du 

code... ; 

— load/bload auec affichage des 
adresses par ESC. suivi... ; 

— cataioyue normal avec la louche 

— TBuectorisafion du RFSF.T dans le 
moiiiteui par la louche "*" ; 

— taille du programme rSduite a 

b secteurs. 

Memorisation sous forme 
de programme Applesoft 

Afin d'obtenir un programme a la fois 
court et rapide. il q follu le realiser en 
assembleur ; nous avons utilise pour 
cela le BIG MAC. Pour etre « boota 
ble ». un programme doit normale- 



ment etre ecrit eri Applesoft : nous 
avons done convenl notre programme 
assembleur B HEL.LO en programme 
assembleur grace a la procedure sui- 
vante : 

NEW vide la memoiie. 

1 CALL 2061 : apppJ du programme 
assembleur. 

BLOAD B. HELLO : charge ie pro- 
gramme en memoire, 

CALL —151 :passe en assembleur. 

*AF ; FE OC tredefinit I'adresse de fin 
de programme de fagon a engiober 
le programme assembleur. 

CTRL-C ;retour a TApplesoft, 

SAVE HELLO Tsauvegorde du nou- 
veau programme de boot. 

Sur la disquette Pom's d'accompagnc- 
ment, nous avons simplement rcpro- 
duit le programme HELLO ainsl 
obtenu. La technique que nous venons 
d'illustrer permel d'incorporer une rou- 
tine en assembleur a un programme 
Applesoft qui I'ulitise. Cela permet da 
copier ensiiite le programme avec un 
simple LOAD suivi de SAVE, ce qui 
est plus simple que de devoir fairs 
appel a flD pour copier le fichier 
binaire. 

Pour tonctionner, HELLO requiert 

4SK de memoire (ou plus), le DOS 

3:6. et l Applesoft en ROM, 
Vit^se de chargement 

Una remarque relative a la vite.'Ke de 
chaigement : depuis la parution du 
\\vrp. BENEATH APPLE DOS. nn sait 
qu'en fait, c'est le DOS, et non I'Apple, 

qui est lent. II lit un secteur dans son 
buffer en $9600, k recopie a son 
adresse riormale et. quand il veut lire le 

secteur suivant, le disque a dejS toume, 

obligeant le DOS a patienter un tour. 



En chargeant un secteur direct emant a 
son adresse sans passer par un buffer, il 
n est plus necessaire d'attendre. c'est 
tout. Les ZDOS 2.2., DOS 3.4. 
HYPFRDOS, ftRLOAD et autres 
TURB0D05 reposent simplement sur 
re principe que nous avons deja utilise 
dans t'aiticle « Chargez vite vos fichiers 
binaires » paru dans le Pom's 4. 
Le chargement de I'lNTEGER dans la 
carte langage se fait de la meme 
moniere apres les tests : 

— Y a t il une carte langage ? 

— Si oui, contient-elle deia I'lNTE- 
GER? 

— Sinon. y a-t-il iNTBASlC sur la dis- 
quette ? 



Structure du programme 

Le programme comporle une premiere 
partie. de $80D a $C03, qui gere les 
coramande DELETE, LOCK, la 
lecture du catalogue, etc. 

La seconds partie. placee en $9AA6 
(premier buffer du DOS), assure le 
chargement du programme et son exe- 
cution, Cet endroit a ete choisi pour 
que le programme charge ne puisse 
ecraser ce module vital. 



RemarquGS 



Ddiib la presenlatiun du catiiloijue, les 

symbole-s suivants sont utilises ■ 

puui un fichiei biuaire, 
"]'" pour de I'Apple soft, 

pour de I'Liteyei, 
"." pour un fichier TEXT ou EXEC. 

Le type de chaque programme est pre- 

sentS par un symboie en inverse si 

cetui-ci n'esl pas verouille. 
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3 * flVEC LDCKHlMDO^l * 


20 * 




10 * ET DELETE « 


21 * 
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LLflJ 






FT\ FPTR 


FOIl 


trti 




TS PTR 


FOIt 


J. 


! nn 1 rut cu rt* f\a TCI 


LLft.Fnrf_u 


Fffll 

L-UU 


till 




UO_r i_rju 








■Q 1 rfn 1 








YREG 


EQU 


tJli 






EOU 


»!)/ 




TrPE 


ECRJ 






PtnHTERl EQU 


tnr 


|lpoirii.ptjrs de dtplscertSftt 


F01NTER2 EE3U 


tf fl 


ifii 1 'TMTFrjR 




EQU 


t1 fl 

ri J 


rPOluS Ton oe 1 MreSSe uU CoiiSlt 


IffflEX 


m 




tirfdex dans le bandesu 




EQU 


Tit 


tdr^eau de protectiofr-Ccfityre 




EQU 








EQU 




flsT^eur de Is fsn^tre ^c^a^i 


mw 


EQU 






CH 


EOU 






TRAP 


ECBJ 




^Vuir Loll riFPic JdTlVler Oil 


LOfei 


EQU 






EOPRGH 


EQU 




f^pLflflMTJ} 1 III 06 


PGH3TRT 


EQU 




tLTuAlir tic pru^r«1 J.R 1 CL£n 


EI!RFLG 


E(XJ 






YSAU 


EQU 


*Fr! 


j-so'JVBSo^Qt Qc T 


W^HSTRT EQU 


i'lnii 




rm^ER 


EQU 




□r'l'l'i^aci /"III '4*1 1ft M^H^^^BTi 

tctltilce <M 1 lie noTw^r 


LXIDB 


EQU 




ilnral ico 1 'TrW 


SOFTEV 


EQU 






PWREDtf 


EQU 






SYm 


EQU 




Jadresse Ccran du s^^ibole'-coftBnde 


OIRCTORY EQU 


tiooo 


ladresse de d-i^Rft 6j cataloQije 




EQU 


OIRCTORY+tFSS Jpointetji- de tKbut de i/TK 


BEH^H 


EftJ 


i2FC 


ladresse de di3Tge#terit de I 'INTEGER 


BITTER 


EQU 




ftafiPffil iju ler secteijr di pgw 


TSE. 


EQIJ 


*978!l 


;t3npon de la TSL dfj psi 


FlfWLE 


m 




JleT buffer dummies du DOS 




EQU 


vmF 


Idtpart e chaijd *j DCS 


IKT 


EQU 


tA59E 


fTQijtine de pasM^ 8 I'lNTEGEH 


FUPCRD 


EQU 






HmEC 


EQU 




;?QUtire 'EXEC 


PfWTEffi 


EQU 


*fl702 


faffiche le^ nes-ssges d'errejr 


CLRCOLD 


EQU 


tflTS 




OMKS 


EQU 




;ccinstrix:tion des bjfters <Sj KJS 


DQSHQOK 


EQU 


tA851 


IrecoTfiecte le DCS 




EQU 


tM^ 


'4 disque par d-Cfaut 


urn 


EQU 


tM75 


Ita^m de nort dij prgqrawie 


PWfflLIST EQU 




fparanetres du file fianagei 


FMTS 


EQU 




;entr<e de la RMTS 


lOB 


EQU 


$B7E8 


;p3Ta«:itpe5 lie la RWfS 


DRIVE 


EQU 


103+2 


H dis^^L>e 


WLUi*E 


m 


IOB+3 


Ivolufte attendu 


TRACK 


EQU 


lOBH 


tPiste 


SECTOR 


EQU 


ICE+5 


f^ecteur 




EQU 


loe+s 


tpointeyr d«j tafipori de (kxin<es 


m) 


EQU 


106+12 


Jcowtande de la RWTS 


PREVOL 


EQU 


lOBtll 


fvolupie trouvi 


CAftDOM 


EQU 


izm 


*aytoTise la lectijre de la RAH 


CfflDOFF 


EOU 


*C081 


lautorise la lect«jre cte la RtSi 




EQU 




(dfljijt <te la carte lanqage 



Of Of 


tLSJ 


flAoo 


,eKlcijtiori d un p^m APPlESOK 


EJfOLI ir 








LlNrnl 


rru 1 


>LUZi 


t3TTLcne les 2 octets cte A,ft 


In IKUn 


rmi 
lUU 


ftrLL 


jeMicution d un pgH IKTEGER 






■tcnnn 
»rUliU 


t initial isatiOR iHltlitH 


DOiTTAV 


EQU 




tr J* J * 1 1 ■ Jt * \F 

faftighe les reaistreij AjX 


TWTT 


tLJU 


>rDir 


J text 


InDV 






JposittorineHent vertical du curseur 




LUU 




toip 


IP 


FD 1 




(TOnte le ciJTSsuf 




CtnJ 




ten ace i icran 




LSJu 




tefface is Tin de la lig^ 


rvLritr 


UtH f 


trnnr 


fenir^e d'ljn caract^re 


ran it 


UM 


»rLR3t 


lenwole un retoiir chariot 


mTAil 


rrB 1 

tJLnJ 


flU/ii 


(Va e la ugjiej afTidie Xjit 


fYU FT 


rn 1 
tLSJ 




t3TTicne le caract^re oarrs A 


erTTkBI 




Trtoli 


faffichage en inverse 


btlnUKfl 


rra 1 

tuu 


frLUI 


faffichsge en Hode rBinal 


SETKBO 


EM 


4FE89 




SETVID 


EQU 


<FE93 


;pRto 


LfiK 






fafficfffi ERR 


fSJIiil UK 


mil 


frroV 


fentr^e d*; fwnitew 


OCfTW 


uoH 


TUTT 

Iru 1 


- 

tplein Icran 






nunc 


teiTace i 4,cr3n 




(CD 


StTrSD 


rirHu 






rTf\ 


(PKftl 




1 f\A 




^quelle conf igjratim ? 




Ufr 


*m 


tfl3K de Taft ? 












ICU 


m 


Jbip 




ufr 


mmm Srend la fiain 


IrUJUlAJa 


KID 
Jon 


DOSIOQK 






1 nA 




{efface PLE 




btfl 








1 FVA 


«9C 








t9Dai 






1 nY 




fd<pl3ce le p<m eri FT>IALE 




CT¥ 


IfBEX 




WUJFPfSi 


1 rui 

LUH 


LETSfflfX 






m 








iriA 
















LLI 1 




trevectorise le reset 




LUfi 




fpoijT une sortie 






SETRST 


Splus prapTSt 




LuA 


t2 


tcr<e uTie fefr-tre 




STX 


!*fl)TQP 






JSR 


HQHE 






t/LA 




tcoflftande lecture poor la RHTS 


w 




MTftLCffi 


{lit le catalog 


A 


LUI 




fcalcul de I'e^ace libre disque 


KaI LittL 




VTOC-lfY fdeacripteijr de piste 


TCCTCTT 

1 13 1 1 




fSTRACK 


Isi 9r piste touts gtillsee 




HOL 




fSi C = (It le secteur est utilise 




BCC 


TESTSCT 


fsinon il est litre 








{saijue 1 






COUHTER 


fincrtfiente le cofiptetjr 
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OTHISCT PLP 
fKTRACK DEY 



TESnWT 8IT 

m 

LDY 

Eir 

CPT 
BEQ 

at 

CPY 

m. 

RELAI Jff 
n 

iCXTPiSiGE INC 

SEARCH LDY 
STY 

mjm m 

CLC 
ADC 
TAY 
9TA 
ZVP 

m> 
m. 

IKY 

K 

LDY 

to 

DEY 

LOA 
STA 
DEY 

m 
m 

STA 

FIMDIMT LDA 
STA 
INX 
CPX 

m 

lBR 
LDY 
LDA 



QTHRSCT Jcte secteurs libres 
OUNTER+l 

JreojpeTe Z 
TESTSCT+2 J-secte'JT suivant 

NXTDESC Jfin (te la VTK ? 

CAROON flectijre carls langage 
BASCTYP jtype dtj basic 

MffiOFF Itcriture carte larrgaqs 

fvf-a-L-il une csrte lanqage? 
fcwi 



tfZ8 

RELAI 
«20 

ID 

SEARCH 
FRSTFIL 



tpas de carte 
{INTEGER (KjS ch3Tg< ? 

Iran 



FILEPTR+1 Isecteur suivant du catalogue 



tie 

YSAV 
YSfW 

#3S 

YSAV 
«B3 

NEXTPAff 
IL(W]I^ 
(FILEPTR) 
NOnL£ 
INTEASIC- 
fEXTPOl 



{initialise Is pointetir tte ncn 
Jet le saijve 

fpT-iic^ident pointeuT de nott 



Iraijveau pointeur 

{fin d<j secteur ? 
fsecteur suivsnt 

-INTBASIC.{ longueur de 'INTKSIC 
,Y {charge urie lettre du svm 
{si B». fin du catalogue 
l,X fcwtfiaraison avec 'IHTBASIC 
Jsi O alors titre suivantt 
tsinori lettre suivaite 



{cliarqe INTBA3IC en fSFFC 
{reyient svee Y=(J 



HOVEINT 



HOFILE 



X 

HXTFILE 



FRSTFIL 



OWPH {fin de la coHparaison ? 
YS^V frCcup^re le paintcjr «fc iwh 



(FLIPTR) fY 

SECTfK {range le * de ^tmr- de la TSL 
(FILEPTOJjY 

fOTPGH {si effac< on le saute 

TiWCK {Tange Le ♦ cte piste de la TSL 

LOffiMJtX {affiche 'CHARGEJOIT DE L'IMTEGER' 

*LQCTRtt-LOAOIHG 

FIM)B(T 

DtlTPTB 

RD3ECT {lit U TSL en 
»>BEGPGM 



LESS1C 



L£SS20 



JS8 LCCDUr 

JK? BOOTPGH 

Sn FOIfnERl 

STY PQMER2 {InitialiM les pointei^rs 

LDX «3I) {d<pl3ra *30 page? 

STX PGINTERl+1 fPOIWTERl <- mn 

STA paBiTER2+i ;poiNTER2 <- mm 

LDA (PaifrrHHDfY 

STA (POItneGJfY 
IHY 

SHE {fflVEINT fii<pl«s I'lifTEGER en WflOa 

m POIKTERl+l 

INC P0INTER2+i 
DEX 

BME mEM {page suivwte 

JSI HmE {efface l'<cr3n 

LDA iMJIFETORY 

STA FILEPTRtl 

K€ FRSTFIL {^aute toujffijrs 



LDA 
CLC 
ADC 

KC 
DC 
LDA 
TAY 
STY 
LDA 
CMF 
BCC 

CMP 

m 

STA 
STA 
JSR 
LDY 

m 

A^ 
ASL 
TAX 
LDA 

BrtI 
BEQ 
STA 
INC 
INY 
LDA 

to. 

ASL 

ASL 
ASL 

m 

STA 
IffY 



fentrte du ler fidiier 



{p3S plus de -18 titres 



{20 titres par fen^tre 



YREG 
#35 

O^etQRE 
FILEPTR+1 

nuB 

Y!EG 
FILDMI 

LESS'JO 
EflKAT 
t29 

LESS20 
iWLFT 
tMDHDTH 
HB1E 
YRiit 



;xHT:Lfi(ift*i 

(FILEPTR^Y {* de piste 
MXTFILE {sayte si efface 
ENDCAT If in si zero 
flJFFER,X 

FILEM^I »un ficfiler de plus 



FUEPTR+l 



{ssjve le pointeur de non 



{FILJEPTR)fY frtixe svec le # secteur 
BUFFER+1,X 
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I 





1 in 








1 r\h 

LUH 


COUNTER+l 




STA 


BlFFER+3,5( fsaijve 1' index 






1 TUPflT 

l_LI1l t\ I 








*tF 






1 nv 


#15 






win 


LOOiFLG 


Jabsisse le dr^eaj de 'LOCK' 




1 ru 


TITREfT 






UUn 


(FILfPTR)fT Hype tiu fidiier 




^TA 


ML3.Y 






DrU. 








LrC 1 








1 


LQQ3T_G 








rrf\i_3iji 






1 QQ 


LCEhfLG 








TfJTT 






nnSJ 


*t7F 


jarfiijle le bit lie poids fort 






♦13 






31 H 


BUf->EK+2,X 






CH 


f II tOU 1 1 




LL/A 


T¥UJ 








CUSIQL 












ENDCATl 


LDX 




fC'x' cligrwtant) 




nOL 








LDA 


SETRST-3 






QUO 


PTYPF 

1 1 1 1 1- 






ST 




taffirhe 

f w 1 1 r>— 














Ei«CAT2 








CHKTYPE 






LUn 




JCcuraejr cliqriOta"it) 


PTYPF 




TABLE »X 




L-HLfLfTI 1 1_ 


'IT)! 


SYfra. 








LQORG 


len inverse si rwn v<rouilK 




1 nv 


tl3 






uOtV 


RaMT 


fafficiie le caT3ct>e et 




LUn 


ftSSAGE-UY 




1 rvA 


niENlM 








tJCTtY 


faff iche le ne^aage 




Lrr 


♦27 
















PLUS2i 








PCHOIX 












rtfiLrLrftj 




DEiaAG 


fraz du drapeau 




ADC 


*14S 








LOCKFLG 






JSR 


PRINT 


taffidie le cBractJTS et 






Rise 


Jattend le cfioix 






415 






pup 


*" 


ji 


rnnrHL 


TMV 








FiMP 


GETl 






1 T\£i 
LLfli 


(FIL£PTR),r Jaffiche le now 




JTVr 


BID 


!fin si 'ewacs' 






4" 


" fcherche les c3rBct}Te5 


^ 1 i 


riff* 








KS 




;<ie controls ^ 




BJE 


GET2 






u r 


«8(1 






1 rifi 


*<MONITQR freset = 1F69 






PNAIC 


}et le* sayte* 






#>MOHITGR 




UtA 


COUT 




LrTBTUniJ 1 


□ In 

□ 1 T 


STRST-3 
SETRST-1 






brSi 










EJffiCAT 


fsasjte toujoi^s 






CRfflJT 




fTT? 

UC 1 L. 




*"y 








NXTFILE 


ftitre suivafit 






GET3 














LDA 


*<WAf9aXK freset = t90BF 


PHTWT 




cauT 






LDY 

LU 1 








^lt_ll 








QftGflST 


{change le vectojr de 






COUT 




tjL 1 




*$95 


;"->" = dis<iye 2 


















uvjTwn 1 




IKTT 


fplein \.cvm 




1 


n 








415 






STA 








3 1 1 


CH 






O [ n 


DFLTDRV 






1 M 


til 






.IMP 


BEGIN 


;?elit le catalogue 




STA 

yi 1 n 


Rl^tLDAD 




uC It 




t«e8 


!"<-" = dis^ije 1 




JSR 


TABU 


JcurseuT en haut de I'-liran 






GFT5 






I DA 

L_L-1 


TITLE-1,Y 




t FVi 
LL/n 


tl 






ITA 
u 1 n 


t3FF,Y 






Lt .1. 


SETDRIV 












be 1 J 






tesc ? 






PVOLtfE 


fafficlie le voLme 




rtiw 








TYA 

1 in 








QTA 

Jin 


RUHLOAD 


{live le draper de 'L 












1 rw 

LUH 


*t3F 


}{'?' inverse > 












Dl h 


SYhBOL 








cum 






Dft 


RA2FLAG 






LM 


121 




GETi 


CMP 


«8C 


fctrl-L = lock/unlock 




STA 


CH 






BIC 


KT7 






LDX 


COUNTER 






STA 


LQCKFLG 
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DlSPtAY 








STA 
B^E 


GET 


G£T7 


W 






&£ 


GETS 




STft 


mFiM 




LSR 


LOCHFLG 




BPL 


DISPUiY 


GETS 


CfP 


*"/*' 




E£Q 


DSPCST 


GET9 


CfP 


♦"J" 




BCC 


GET 




OP 


♦"[" 




BK 


GET 




crp 

















!ctrl-D = delete 



Jannule le drapeau 'Lffl3!' 
iaffich@ le nouveau s^irtbole 

tBffiche le catalogue normal 



{pas < "0" 
JpK > "Z" 



LA PORTE ! 





k:s 

flSL 
ASL 
TAX 
LDY 

m 
m 

JSR 
PLA 
LSR 
LSR 
LSR 
LSR 

m 



iH9 

FILENlll 
GCT 



fcalcule le rang 

til n'^ en a pss tanti 



;mjltipUe pa? 1 
Idevieni 1 'index 

BUFFER, X li de piste 

BUFFERH,X fsecteur cfe U TSL 



WOF 

LOCTRK 



Iran^ piste et sectew darre riOB 
frtcupjre le poimteuT de now 



4FILEH 





STA 


FILEPin+l 




LOA 


BUFFER+2,X Jiype dg pgw 




STA 


nPE 






LDA 


BurFe?+3,x 




STA 


FILEPTR 






LOT 


♦311 


{affiche le nan cfioisi 


SELECT 


LDA 


(FILEPTR), Y 




STA 


SYfBOL-ltY fH p3?tiT du c<j?sew 




STA 


NAf€-UY let I'&rit dsns le tsMpon du 




DEY 








m. 


SLECT 






BIT 


LQDTLG 


frun on lock ? 




m. 


QCCK 






JSR 


PROTECT 


{disqije protl'g{ en {critjJTC ? 




LM 


(FILEPTR) ,Y 




EOR 




JiwKule le bit de LOCK 




STA 


{FILEPffl),T 




LDX 


fZ 






JSR 


CATALOG 


SvKcrit le catalogue 


OEEUT 


JP 


DCPTif 
ttUiN 




x 

OSPCAT 


^KR 


HOME 






LDX 


U 


Jcode de 'catalog' 






SETPffiM 


J^pel ijfj file iiirager 






fa3KEY 


Jattend ure a-itT<e clavier 


I 


BHI 


DEBUT 


Issute toiJjQUTS 


PROTECT 


err 


HRHERR 






BPL 


NQEFSiffi 


[retoiJT 




LDX 




[code de 'VmZ PROTECTED DISK 


I 


E^E 


ERROR 




CHEO; 


GIT 


DELFLAfi 


(riJri oj delete ? 




BPL 


NODEL£TE 






^m 


PROTECT 


Jdisqije pTct<9t en icTiture ? 




LDA 


(FILEPTR 


,v 




BPL 








LOX 


tID 


UocKed -> ne pas ef facer 




BME 


EfME 




ffiiDEL 


LDA 


♦OWE 


U 'efface 




STft 


PARfUST+3 




LDA 


4>WE 






STA 


PARHLIST+9 




LDX 


*5 


IcwwBncte cfelete 




JSR 


SETPARfi 






JfP 


te-'GIM 




Jk. 

fWDELETE m 


TYPE 








fHTEJa 








D(KD(EC 




n 

fflTEXT 






Ipg^i BIHAIRE ? 






ra)Ta_ 


toiji -> le charger 




BCC 


APLSOFT 




BfflTYFE 


LDX 


tl3 


;™Je de 'FIL£ TYPE HISIWTCH' 




m 


ERROR 




ftaSOFT 




#2 


;p^ APPLESOFT ? 




m 


RDTSL 






m 


itza 
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I 

ERflOR 



I 

RD3ECT 



NQEflRaR 
I 

BDTSL 



I 

FRSTSCT 



I 



CATftLOG 





rLLrLKU 


feSSale oe passer en inltbtK 




ICO 


LQCTF9' J range piste et sectaur dans I'lG 


[jCU 


RnT<ii 




UYTCFTT 
EiA 1 aLL ] 


rep 




1 nv 




*arf>cun> '1 fiMfilifT WflT ilWd ATOI F' 




Twr 


HiCiLnu+i 










UtL 


atLiUK (* oe secteuT - l r 




14 


t'URTTF PftflTFTTm tlT^l" 7 
i W\l 1 L rnli 1 LL 1 LU Ul OF^ ' 




ppl 

urL 


rtAiaCLI fDOn ,-' WR-Orc JH SeCIrSiJT 


PUP 








1 nA 


>LUtu fieste 5L pTOtectLQn en l.cTiT.'Jref 


ICI3 


pn 1 

HtLL 


*Ki n 1 




1 nA 

LUh 


Jt-Uth ^(laris le slot 6 I 


KB 


CFTTMtJ 

□tiinv 


faffiche le wesssge d'erTei-T 






MTKrTrW ' r.r,n 

rwAL 1 Ln } tlQU 


KR 

J?SK 




ren inverse 




S 1 H 


wtiitRrs ti-'Ve le Qrapsau oe proTreciion 


KR 








PTC 
rvl D 


^ re Lotjr 




LrLTulUL 




X 






CD 


onucv 


r3ttcrid une entr'te clavieT 


5t 1 rHnn 




PASM TCT 


Dt D 

ri_r 




(SSt-ce iwiilt rKUItLItU 




1 nA 
LUh 


10 


ECU 




^ * 1^11 1 1 tun C^fTU 

tbl QULt jLVV Dtbin 




J 1 n 


rHnnuJ.31 to 






fsinon affiche le nenu 




1 fU 


nP THBU 
UrLI Utw 










Oln 


rnnnLLOl Tj 






' 1 nnDl i cn 1 'TflC 




,11^ 

KM H 


MfftfljrR t^tDDf 1 rtii file HuraanT 




DUTC 


(3ppeJ.l.e 13 KMla 


I 






BCC 


NCIERRQR 


}si C=fl pas d'erreur 






".>]1SR]I*' 


LDX 


18 


;code de 'I/O BWOR' 


TITLE 




"-Pffi'S-" 


Bft 


tlvufts 




t 






DTC 






x 


nn 




Jon 


TXI 1 1 DTD 

ifuir IK 










KB 


nrvQPPT 




TTTRP 
1 1 inc 






LDh 


TCa *1 
fSL+l 


3fjtre TSL ? 








C7A 

b)H 


TCI xlKL 


fsi P35 de suite* fstop 




CI CC 




TflY 
inl 










VLH-* 


DCU 


FRCTCrT 

rnO lOii 1 




TTTRP 
til nL 






LLfH 


TQI 4.7 




M. 








1 fFTHV 






fTW 
rXEH 






BUFADR+l 


iFage suivarite 


1 








RD3ECT 




MESSAGE 


TO 


VU 1 t\L LrnJlA 


1 nv 


n 






ftSC 


II * II 
t 


m 


TSL+268tV trend le5 TSL ctitiligues 


t 






STA 


TSL+25i,¥ 


INT^IC A3C 


" CISABTNI" 


iNl 






I 






mar 


fiOVETSL 




LOADIfC 


ASC 




1 nv 


Ta_+12 


;Ut le ler sectair en $96011 


L[K:TRl^ 


STY 




UJfl 








STA 


QFTTfTR 


ICC' 




frange pisis et Mcteu? dans l^Iffi 




BfTS 




1 nv 
LUI 


*<BUFFER 




t 






LUn 


*>BUFFER 




LETGH] 


LST 


un 




LQCeUF 


[position™ li {jijffeT de IMS 




QSC 




too 


RKECT 




I 








FimLE 






LDA 


lire (rr^vupp^ic J.P mj f^yfi 










LSR 




GT¥ 
31a 




Jcwwaride iwrs(l=lect* 2stc?it.) 




BCS 


TUTfJfll IT 


CTV 
SI A 








LSR 




LL/T 


KDIRCTCKY 




BCS 


riraUr i 


1 r 


VOLU* 




I 






Q 1 1 


niBm 






LDA 


n LULU f arlTfi-c^a rta rkTu if 


<;ty 




fpointwr de p^ = *10!IO 




STA 




1 ni 

LuH 


DDIRCTGRY 




SBC 


#i3 ^QSLerntrw i Surt QU iJUTTeT IL-ui 


STfl 


FILffTRtl 




TftY 




JSR 


LOCRJF 


idOnA du buffer ^ iim 




m 


EUFFER+l 


LDA 


*tOF 






STA 


START+L 


LDY 








SBC 


to 
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JSR 


LOCEaJF 


fpositionne le buffer de RHTS 




STA 


TRAO^ 




J3R 


KjuTFHI 


Jcharge ie pgn 




INT 






JSR 


CLEMJr 


ffwttoie les buffers oj MS 




LDA 


(Ta.PTR>,Y de secteur 






nrW' lib 






STA 


SECTffi 








- 




STY 


YRtG fsaijue rirmex 




LDi 


START+l 






LDY 






iJbK 


rKiXz 






LDA 


f>IGS 






DUrFBi+2 






JSR 


RHTS fsectajf suivant du pq« 












KS 


END f sortie si erreur 






PRETAX 


'affiche la longtjeuT du 




LDY 


IREG frestaijre 1 index 




JnF 


HflRrCOS 


tsortie par reset 




INT 




IM^ 




(START) 


iexiojis le pgn 






BOOTHXT 


I 










INC 


TSLPTR+l fht la TSL suivarite 


flPSOFT 


ADC 


BlfFER 


fcalcul de LOhEH 


BOOTNXT 


INC 


af ADR+1 fan charqe 256 octets plus haut 




STA 


EOPRGH 


fLOfEH = fm ij pgii 




B^E 


BOQTPGZ fsaute toujours 




STA 


LOfO 


{ =$301 + longMew du pgw 


EMBOOT 


Jrf' 


□JiClLD ,Ha™ start 5 retour 






0JFFH(+1 




I 








mZ 






UJUrlltH 


DA 


(in 




STA 


EQjPRGM+l 




I 








STA 


LOftM+l 




IfUTPTR 


LDY 


tCiSL fiJUTfer de TSL en if/U 




IM 




[on Is chsTqe en tTFF 




STY 


TSLPTR 




TAW 

TAT 








LDA 


f>Ta. 




LDA 




f ($801 - $02) 




STA 


TSLPTR+l 






1 irwTra If" 


fpositionne le pointeur de buffer 




STY 


BUFWjR fadresse du ojffer de RhTS 




JSR 


BQUTPGM 


fchsTge le pqci 




STA 






STA 


BWLG 






RTS 






STA 


$800 


f tfSDO) = 


X 








JSR 


CLEAMP 




CLKi*P 


JSR 


CLM)OS fTKonstruit les twff^rs du DOS 




BMI 


LOAD 




X 








JnP 






SEThwI 


STA 


TRAP f(A=ll) 


1 










LDA 


t22 


INTROJT 






►poKe RTS oans le KK cola start 




JSR 


HOfE+£ 






>Vut/ 






Jal 


IP 




. JSR 


DiT 


fpssse en IHIHSRt 






CRQUT 




LDA 


**6C 


frestflijre le code 




LDY 


t'iJARflDOS 1 reset = $90^ 




STA 


t9!)E7 


fdans le uflS cold stsrtt 




U)A 


*>WARi1D(ffi 




JSR 




f initialise le UJO 


SETRST 


STY 


SQhEU fvecteur de RESET 




ICO 

JSR 


CufiJUS 


frevient avec ft=(l 




STA 


r^nx III fi 1 




SEC 














SH. 


tWFFEK 






STA 


dJDTTU ID 




STA 


P131STRT 






BIT 


RLMLOm) 




LDA 


«M 


fwffei = mm 




RTS 








RJFFER+t 




1 








STA 


PGt^TRTtl 


lHj 


JSR 


^1 PAI^RID 

CLEHftUP 




SEC 














LDA 


PGMSTRT 




1 








cor 
SSL 


+2 






1 *T 

LoT 


ffr 




m 1 














1 

Ixm 


PGHSTRT+1 












cor 










Trues et astuces 






LOCBUF 






Essavez le petit programme suivant ; 






BOOTPCH 


fcharg9 le 




1 PRINT "COMMENT VAS TU ?" 




JSR 








f, UTAB PFFK(37) :PR[NT 






im 








.YCDC. .POCLE".POKC 






INTRUN 


leK-Ccutp le 




2049,066 


X 










Pour fappreaer, faire [LIST], puis 


BOOTPGM 


LDY 


mc 






fRUN) et-[UST]. separes bien entandu 


BflOTPC2 


LEA 


(TSLJ>TR),Y ft de piste 




par les tradittonnels RETURNS. 




m 


EMmiT 


fsi Piste = f in du charoeHent 
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Recapitulation du programme HELLO 



I 



i 



::icALL 


"151 














Q ■[ P fl 


n,tz- 


i. 1 


^ u 


o r* 
¥U 


C P- 

r Uf 


HA 


aft 


AD 




















Pi r-Q... 

o i L. D 


DO 


y b 


1 .V 


bp 


r\ fl 
Lf U 


fl '7 
U / 




z fl 

6 U 
















Q 1 I" J fl — 


O H 




fl 7 


A ft 

fl u 


U D 


by 


t"- rr 


E* 




















^11 WO... 


Q O 


PC 


n 7 
U / 


bo 


U LJ 


r" "'1' 






i'^ rt n rii 
L]i U U U 






r t' 






F r" 


.X.. u 


O 7 






€\ '% 
U O 


i. U 


U L 


iT t\ 
\ U 


cy 


A 


D 


o n n □ 


h fci 






irp 
1 1^ 


an 




U d 


PQ 




U ^7 


4P 


7 R 


OP 


PD 

uy 


A. A 
MM 


rt fl 
u U 


Ct P 


o n 1 ri 

□ u ,1 u 


on 
T u 


r U 


n A 


n 


i- u 


F F 
r r 




n n 


R 1 1-" n - 
ox 1 u 


HT 


G 7 


H U 


FF 
r r 






U til 

y p" 




a U J. Q 




^ rt 
t, U 


1 

U L 


H O 






w u 


fl fl 




15 tf 


Opt 


U u 


i;lo 




V)\J 


L/U 


U 6 




■win 


H y 




Pin 


n 1 


7 1/ 


HZ 


n n 




M y 


b r 


A It 


CJ 1 \ 

ru 


IJ U 




LV 








1 y 




A 


fl r 


fi 


AX 
niQ 


Q A 

y R 


an fl Q _ 


u u 


fl n 


ri 7 






r" A 


P' ^ 


U U 




ITU 


n fl 


r / 


n 
H u 


OA 
T H 


AP 


<?P 
7 o 


*7 n 
z u 


O i_ J. 1 1 


Oc> 


A A 
Hrl 




ftn 
u u 


fl Ci 


PO 

L,y 


DP 
rJ p 


U II 


n n Q n - - 


UU 




AC 




o O 


I,. J- 


u 








AQ 
rl 7 


fl 1 
U 1 


u u 


Ll 1 


by 


Or- 


fl 


c n ^ n 
D U U 


r L, 




'> n 

J- u 




U P 




o L, 


tl 7 


Q f_ ^_ U 


fl O 

U 7 




n 7 

u / 


AP 

H 7 


Q p 

r 




UU 


fS 7 


o u to 


a/ 


1 r 


r u 


fl F 

u r 


u n 


Q ft 

7 W 


r 


U o 


CJ 4- 


r>fi 


D ~ 


U 7 




ri fl 


u y 


U vJ 


fl T 


o n ^'-i . - 
o u u 


Lit 


6 / 


OP- 


u u 




PF 




Q P 


q'^ "1 ri 


J- ~ 


/ r 






fl 7 


n fl 


AD 
f-F 1;:' 


PO 

U 7 


a n '"i ?i — 




ri fi 


F 1 
r 1 






L 7 




CI T 


n q ci 




fl n 
M u 


n A 




fl £i 
U T 


to 


fl 




R n A n 




An 


V u 


1- n 


A P 
H U 


(1 1 
11 1 




T P 


q /I ft ... 


P P 


p o 


AT" 
HI 


V- (1 




PO 

uy 




O fl 


tJ u o o 


C1 1 


L U 


r<? 

U T 




f) 11 


1) H 


1 * fl 

Lf u 




O '? jtl Q .... 

Ojl to 


oo 

7 7 


L- 7 


Up 


p U 


y vJ 


U-7 


p 1 
1 


Q fli 
7 If 


on '7 ft 


If u 


n □ 






u u 


\} 7 


w u 


rt n 
u u 


O '7 1", fV . _ 


U A, 


PQ 


o p 
i_ L- 


r o 


o rr 
/ .J 


L-vj 


n ri 


P fl 


P n 7 Q 
DU ^ d 




\) ,..1 




n T 


fl Q 

U 7 






A f^ 




tJ 7 


fl A 


n A 

U H 


H ri 


P P' 


U IJ 


OA 
y o 




U U o u 


I"" C"' 




r D 


rtiJ 


F F' 




O 7 




Q'j/ n _ 

Crt, O U 


til 1 
U 1 




4 !^ 
T O 


-■> D 

t. 7 


n P 
U r 


""r^ 11 

A IJ 


1™" n 
1 U 


n F 
U P 


o u < J o 


A O 




pp. 




u ^ 


C fl 
P- U 


1. 1, 


AT- 
f4*l 




A P 


T f-l 


■4 A 




A 


fl O 


i fl 
J. U 




fl fi n 

ou y u 


U p 


b 1 


fi 1 


F fl 
r u 








n P 




fl 


p 


ft ^ 


7 O 




U I* 


t' n 
b u 


n "2 


Q n -c^j Q ^ 

DU > i;5 


Pi n 


c o 
t, y 


PR 


PA 


IJ u 


Fq 




1 b 




Q A 

V CJ 




n 1 

U J. 


f-i u 


1 r 

J, £. 


b- J. 


fl '^ 


V y 




oo 




F' 1 
u 1 


n 1 
Q 1 






P V 
b/ 


a Q 
oo 






U / 


OQ 

7 7 


'7 /I 

/ t 


A A 


DO 


U U 


1 I.. 

r J 


n rt AO 

d U H a 


t- 1 


f^ i 
U 1 


o u 


U/ 




F n 


C'/ 






Z T 




1 U 






b/ 


fl A 

U Pi 


Pi H 

bl 


Q fi i:> n 




ft c» 


pn 


6F 

M r 




c o 




i 7 


O i. 7 U 


U 1 


T 7 


n (1 


7 1 


fl 1 

U J. 


A '7 

f-^Z 


U £ 


7 n 


a U 1::' o 


U U 


p. p,- 
r vj 


^ u 


A Q 






J, / 


fl P 


Oi. / (J 








fl n 


fl 


O fl 


(J 


r L. 


o U U U 


A n 
ftU 


r L 


*"l 7 


7r 

,vur 




7 1 

/ 1 


7 III 


fl 


P 1 A ft „^ 




n A 


fl 


7 t 


u b 


z u 


fl f ^ 


ir r^ 


an t*^n 








F 




■1 fl 


H ^™ 


'a f 1 


Q^f AO-.- 
tl H tJ 


fl 


C ft 

r u 




1 ir 




OH 


A 1^ 

RZ 




d u u u ^ 


L 
Q Q 


n c 

U r 


At; 


IJ ii 


J 


1 1 

.1 1 




rt c 
u t 


O i_ U 


u u 


"^p 
J 1 




11 4 


1 fl 
1 II 


1 1"^ 

J. u 


z u 


1^7 




/ 1 


1 U 


PR 


n fl 


r 7 


F' A 


U r 


wo 




U M 




U I 


1 u 


n i!- 
U T 






r\ t\ 
lJu 


Q ft L7 


1 1 
1 1 


P A 

LrH 


n n 
u u 


F T 


'> fl 


R D 


E7P 

r Lr 


AO 


ozi.^ u 




AO 


•J 




p o 


b>J 


Pit 


A A 
I t |-( 


□ U 1.^ o 


1 u 


O J 


fl "3 


u u 


U 7 


H J 


fl j(L 
U O 




p p & 








Hi. 


u ^ 


^ fl 

*^ u 


y*t 


n F^ 
U P 


□ ft i:r fi 


/ o 




? u 


n d 




u z 


AO 




C? 1./ u 


4P 


fl n 


fl n 




fl P- 

U Lr 


n fl 
u u 


fl '3 


4P 


o U 1 D 


hd 


O 1 


u o 


H w' 


n n 


L.- 7 




7 u 




P A 


A 


7 


U 7 


1- " fl 




y u 


fl A 
kl f 


o i u u 


U o 


T L, 


o r 


n 9 




J. 1 


n n 


n 

U tl" 




A2 


00 


D [1 




l„j 7 




r fl 


1 1 


Q 1 CI a -™ 






o u 


T 1 

^. L. 


7(1 




PP 


It T 


U ^ tb. W 


Pl 7 




7fi 

^ V 




rl %.} 


Pfl 


7 A 


A7 

M ^ 


U 1 J. U 


U 




(1 fl 


U M 


ft A 
U It 


pl pl 


F:1 
D X 


ft 1 




n 1 


E 


Q 4 


OR 

IJ LJ 
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Un analyseur de syntaxe 

Olivier Her?. 



Je venais de terminer de taper ce 
magnifique programme d'Othello 
pubiie par une da mes revues preferee^ 
et i'avais fait plusieurs parties plus ou 
moins brillantes de ma part quand, au 
beau milieu d une partie passionnante, 
la sentence tomba comme un couperet 
de guillotine : SYNTAX ERROR IN 
LINE 980. Horreur ! 1 IJe listai la ligne 
980 : il manquait un deux points cntre 
un HOME et un GOTO, ce qui m'auail 
etliappe au cuurs des nombteuses 
rejRdiiTP.s Hii pTngrammp.. 

Cette histoiie a deja du se produire. de 
fagon plus ou moiris semblable. chez 
nombre d'entre voos. Aussi m ecriai-je 
alors ; plus jamais ! Je m'attelai ^ 
I'ouvrage et pondis le programme 
d'analyse syntaxique (SNTX) ci-joint. 

Cg programme repond a trois objec- 
tifs : c'est tout d'abord uri utilttaire qui 
detecte los SYNTAX ERROR et les 
TYPE MISMATCH ERROR avant 
I'execution d'un programme en Apple- 
soft ; secundo, il est didaaique quant a 
la forms : c'est un programme que j'ai 
voulu trfes structure, afin de bien lUustrer 
la logiquc de la programmatiDn et que 
J'al truffe de remarques (presque une 
instruction REM par ligne) ; tertio, il est 
dldactique quant au fond : son 6tude 
aide a comprendre comment fonc- 
tionne I'dnalybt; syiitaxiqut; qui est une 
de.? trois artivitfo; fondampntalfs d'un 
intsipveteuv (avec la gestion des varia- 
bles et ceile des piles — les piles de 
I'Applesoft permettent de gerer les 
GOSUB et les FOR...!SEXn. 

Comment utiliser 
ce programme 

a) Programme sur cassette 

I! faut taper les instructions suivantes, le 
programme a ftudier gtant dgja charge 
en memoire : 

POKE 1912, PEEK (103) : POKE 
1913, PEEK (104) 

POKE 1914. PEEK [175) : POKE 
1915, PEEK (176) 

Cela pemnet de cacher les pointeurs de 
debut et de fin de programme (adres- 
Sfi-t; Ifl.'^et lf)4. 175) et 1 76 rp_spectiw- 
ment) dans les memoires 1912 a 1915 
(qui .«>mblent faire partie de la page 
texte, mais qui en r^alitS n'en font pas 
partie — voir le manuel de reference 
de r APPLE li). 



POKE 103. PEEK (175) : POKE 104, 
PEEK (176) 

POKE PEEK (103) + PEEK 
(1041*256-1,0 

Cela permet de charger le programme 
d'analyse syntaxique S^JTX a la fin du 
programme 3 &tudier. 

LOAD tl large SNTX 

DEI - 1 ,0 met en place \ps pointeurs de 

SNTX 

RLFN lance SNTX. 

b) Programme sur disquette 

L'opeiation ci-dessus est reolisee auto- 
matiquement par im fichier EXEC 
nomme SYNTAXE, tabiiquS pax le 
programme en Applesoft FAIT 
SYNTAXE d-pint. La procedure a 
suivre est la suiuante ; 
RUN FAIT SYNTAXE cree le fichier 
EXEC 

LOAD Nomprog — Nomptog est le 
nom du programme a analyser 
EXEC SYNTAXE change les poin- 
teurs et lance SNTX, 

Fonctionnement 

du programme SNTX 

Fonctionnement general 

Ije progiamme commence par deman- 
der le numero de la premiere ligne a 
etudier. Puis, ligne apres ligne, il indj- 
que si chaque instruction est cotrecte 
ou non. SNTX s'aiT&te automatique- 
ment apres I'anaJyse de la demiere 
ligne du programme etudie ; il 
demande alors a futilisateur s"il veut 
retoumer au programme initiaJ : si 
non. laisse le programme SNTX en 
place ; si oui, il retabtit les pointeurs du 
programme initial. 

On peut 51 on !e destre interrompre le 
programme SNTX par CTRL-C ou 
RESET : pour retoumer s ce moment- 
la au programme initial, i! suffit de faire 
GOTO 12000. a la suite de quoi 
SNTX pose la question du retour. 

Messages d'eneur 
et indications 

CORRECT (instruction sans 
eiieui) 

1 INSTRUCTION NON RECON- 
NUE 



2 (signe ou « token » de TApplcsoft) 
ATTENDU 

3 (variable ou fin d'instruction) 
ATTENDUE 

4 NUMERO DE LIGNE ^63999 

5 NOMBRE INCORRECT (nombre 
reel dans le programme) 

6 EXPRESSION INCORRECTE 

7 CONHISION DE TYPE (type 
mismatch en'or) 

8 INSTRUCTION AMPERSAND 
INSTRUCTION CALL 

10 FONCllON USK 

11 INSTRUCTION REM 

12 INSTRUCTION DATA 

13 GETNUMERIQUE 

Les erreurs 1 a 7. fatales a I'execution, 
sont indiquees par un beep sonorC 

Les messages 8. 9 el 10 indiqu^nil des 
erreurs potentieltes ■ il s'agit d'instruc- 
lioiis qui appelleiil le lariycige rnacliijie 
et pauvent prendre en main la syntaxe 
du proyrainme (par exeniple & X 
HPLOT ou CAIJ 7fy8.A) : aussi. 
daite ce cas. SNTX emet un message 
d'erreur et ignore la fin de I'instruction 
(attention ; it se peut qu'cxceptionnel- 
lement &. CALL ou USR necessitent 
pour leur SYNTAXE le symbole deux- 
points, par exemple CALL 768:A ; 
dans ce cas, SNTX peut indiquer une 
erreur a tort). 

Les messages 11 et 12 indiquent une 
instiuclion un peu specidle . la syntaxe 
de DATA e.st determinee, uniquement 
a I'execution , par une inshuction 
READ et un REM ignore la fin He la 
ligne (ne pas faire REM BLABLA . 
PRINT AS). Alors SNTX emet le me.s- 
sage d'eureur et ignore la fin de I'ins- 
truction pour un DATA, la fin de la 
ligne pour un REM. 

Le message 13 indique une erreur un 
peu specials : GET A est par exemple 
Itcite en Applesoft mais si, en r^onse S 
cette instruction, I'utilisatsur tape uns 
louche autre qu'un numero de a 9, 
on obtiant une SYNTAX ERROR. U 
GET numSrique est done & prosotre 
au profit de GET A$:A = VAL(A$). 
par exemple. 

U faut signaler que lee erreurs indiqu^es 
ne sont pas toujours celies fait;es par 
Putilisatcur : par exemple A=1B... 
enyendrera le message FIN D'INS- 
TRUCTION ATTENDUE. que lutilisa- 
teur ait voulu ecrire A= 1:B = 2 ou 
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A-l + B; do mcme. GET(A${B$)) 
sera qualifie non pas de CONFUSION 
DE TYPE, mais par un GETNUMER!- 
QUE (c'est en quelque sorte ici un 
«bug » de SNTX, mais iJ etait bop com- 
pllqu^ de faire autrement). 

Notons que SN'I X releve des erreurs 
que r Applesoft ne voit pas. Par exem 
pla, GO iO 123AS passe en Applesoft, 
ce qui est du au fait que, celui ci ctant 
interprets, il ne regards pas detnere 
123. 

Une ligne du genre 10 PRINT * BLA- 
BLA sera notee EXPRESSION 
[NCORRECTE par SNTX duit, que 
I'Applesoft toiere Toiibli du « quote » 
eii liii de ligrie. 

L' Applesoft supporte IF A$ THEN... 
ou encore ON I GOTO sans num^o 
de ligne, ce qui ne sert a rien «t est 
den once par SNTX. 

De meme pour STORE A$. instruaion 
permise par I'Applesoft alors qu elle ne 
stocke sur cassette que les adresses 
les longueurs des chaines du tableau 
A$ et non les chaines ellfis-rnfiiiitM. 

Enfin. I'Applesoft ne verifis^ la syntaxe 
dt; Texpression situee apres DEF FN 
F(X) = qu(? si la fonction FN est appe- 
let! du cours du programme, par exem- 
pk PRINT FN ¥m). alors que SNTX 
analyse la syntaxe de tout ce qui suit le 
DEF FN. 

En revanche, SNTX ne signale pas les 
autres eaeurs d execution. comme les 
OUT OF MEMORY s'il y a par axem- 
ple trop de IF THEN, FOR NEXT ou 
GOSUBembot&E : bs OVERFLO'W, 
meme poiir les constantes rfielles dans 
!e programme (SNTX aurairt pu te faire. 
mais c' etait trop fatlguant 1) , uu yncoie 
I'cxistence de plus de 88 dimensions 
dans un tableau (ne soyoiis pas ridicu- 
les I) ; enfin, tout «■ trafic » fail directe- 
ment sur les octets du proyrdiMrne et 
qui change la « tokenisation » pent 
dfirouter complSlenitint SNTX. 

Analyse du programine 

CommenQons par indiquer, a t usage 
des puristes, que ce programme n'est 
optimise ni cn place memoire, ni cn 
Vitesse d'execution. En effet. pour aider 
la comprehension du programme, on a 
prefers le structurer au maximum, 
meme si cela parart parfois peu astu- 
cieux (sous-programmes appelfe une 
seule fois par example). Nous n'indi- 
querons ici que les grandes Itgnes du 
programme, les nombrcuses REM qu'il 
possede expliquant les details. 



La ligne de programme 
Applesoft 

Indiquons en preambule comment est 
faite une ligne dc programme Apple- 
soft. Les deux premiers octets repre- 
scntent TadrsEse de la ligne suivfanie 
(octet has . puis haut comme toujours) ; 
si cette adresse est nulls, c'est quon a 
atteint la fin du programnie. 

Les deux octets suivants indiquent le 
numero de ligne (de a 63999 en 
principe - octet has puis octet haut 
bien entendu). 

Lnfin. la ligne est representee de 
maniere « tokenisee » : les octets 
valant de 1 a 127 indiqueni un carac 
tere ASCII et ceux valant de 12S a 234 
indiquent un code {« token ») de 
I'Applesoft (voir Pom's 4 pages 44 et 
45) , la fin de ligne ctant indiqu^e par le 
code 0. 

Le programme 

U commence par un saut a la ligne 
20000 pour initialiser le tableau des 
eneurs, demander le num^o de la 
prcmidre ligne a etudier et la chercher, 
en retrouvant Fadresse du debut du 
programme a etudier dans les memoi- 
res 1912 et 1913, 

Puis il saute en 10000 poui debater 
Tanalyse : il indiqus le numero de ia 
ligne et celui de I'lnstruction dans la 
ligne puis, en fonction du « token » de 
l instruction. il saute vers une des llgnes 
3000 5 3&00 (etude des « tokens ») 
avant decrire le message d'en-eur (ligne 
100 a 150) et ds passer a la prochaine 
instruction (ligne 10020). 

Pour Tetude des « tokens on utilise 
des petites routines situees avant la 
ligne lOOO. 

Le coeur de T^ude syntaxiqne p_st 
COnstituS par rBnalyse des expres- 
sions : i! s'afjit des routines debutant en 
600 (nom dt: variable), 1000 (expres- 
sion numeriqnf?) et 2CKX) (expression 
chauit;), qui s'appellent les unes les 
autres : et oui I le BASIC est recursif, le 
problenm etant qu'il ne possede pas de 
variables locales, difficulte contoumee 
par I'utilisation de tableaux (VAR. Al 
et A2) et d'une pile (1, II et 12) notant 
I'enfoncement dans la r&ursion (lignes 
670. 1330 et 1620). 

Notons Timporlance dc la variable F.RR 
dans ces routines :d& qu'une eireui est 
trouvee, ERR n'est plus ni.il et I'nn sort 
immSdiatenieni des sous-programmes 
recursifs par le.s multiples issues de 
secours IF ERR THEN RETURN. 



Aprss le retour au niveau general du 
progi'amme (lignes 3000 et suivantes) , 
I'analyse est arretee en cas d'enreur par 
le sous-programme de la ligne 20. 

Notons quen fin d'analyse, le pro- 
qramme saute a la ligne 12000 et. le 
cas echeant. retoume au programme 
initia! en restaurant ses pointeurs qui 
Staiient caches dans les memoires 1912 
a 1915. 

Les variables 

PTR ; pointeur d'adresges qui indiquc 
la progression dans le programme etu- 
die. 

A : contient la valeur de I'octet indique 

par le pointeur (ligne 10). 

ERR : numero de I'enreur trouvee. 

ES$(ERR) : nom de cette erreur. 

FIN! : variable Indiquant la fin d'une 

instruction- (ligne 30 : A = ou A=K 

donneFINI=lj. 

TKN : indique la presence d'un (ou de 
plusieurs) « token » ou caracteie a 
I'adrGBse pointee par PTR 
LN ; numero de la liyne etudiee. 
NL ■. numero de la prochaine ligne. 
1ST : nunifiru de I'instruction dans la 
ligne (ligne 10000 et suivantes). 
BEG - numero de !a premiere ligne 
dRmandee par I'utilisateur (tigne 
20040). 

A$ : sert pour les INPUT et tes GET. 
B ; est un code et B$ un nom de 
« token » ou de caractere pour les 
messages d eneurs (lignes 100, '100 ct 
90U), 

US : indique \a presence de la fonction 
USK (ligne 1310). 

PNT : indique la presence d'un point 
dans un reel (ligne 800) . 
NBR : valcur d un numero de ligne. 
LNG : longueur d'un num6ro de ligne 
(ligne 500), 

INF, SUP, EGA et COM sont utilises 
pour la detection des operateurs de 
comparalson. 

VAR et \JAR{\) : notent le type d'une 
variable (lignes 600 a 790). 
ADR, Al(ll) et A2(I2) reprp.sentf>nt 
un stockage provisuiie de PTR (lignes 
1330, 1620 et 3730) 

Ameliorations 
du programme 

,1e pense avoir pris en compfe, a defaut 
de la totalite. au moins 99 % des cos 
de figures qui peuvent se presenter 
dans un programme Applesoft, 
rl'espare que SN 1 X les traite tous cor- 
rectement : en effet, le programme 
SNTX a beau avoir ete teste sur de 
nombreux programmes Applesoft, il 
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est loin d'avoii' eu affaire a tuus tes Lds 
de figure. Aussi, j'espera qu'il dp. rp.qtR 
pratiquement plus de » bugs ». 

En ce qui concerns !es iimitations de la 
Vitesse d'execution et de la taille 
mamoire dont nous awons parle ci 
aessus, il est conseille d'utiliser une ver- 
sion sans REM du programme SNTX 
(obtenue avec le CRUNCHER de 
DAKIW ou AOPTIMIZER), Sans les 
REM, on a la possibility d'analyser la 
syntaxe de programmes Applesoft 
ayant jusqu'd 110 secteurs sur dis- 
quette {ou faisEint moins de 28K envi- 
ron, ce qui est quand mgme consid&a- 
ble — un progrannrne trop gros aboutit 



au message PROGRAM TOO LARGE 
au monnent du cheirgcment de SNTX) . 
La vtrraiun sur cassette tol&e des pro- 
cjrammPA de 40K au plus, 

Enfin, nous foumissons sur la disqiififlp. 
de Pom's le resultat de la compilation 
de SN rx par le compilateur TASC : il 
sagit du fichi«r binaire SNTX COM- 
PILE. Son utilisation est un peu diffe- 
rcntG dc celle de SNTX ; il suffit d'avoir 
le programme a etudier en memolre, 
puij de {aire BLOAD SNTX COM- 
PILE et CALL 29869 (attention : 
29869 n'cst pas I'adresse de debut du 
fichier SNTX COMPILE). La suite des 
operations est la mcmc que pour 



SMTX. a la difference pres que SN I X 
COMPILE offacG Ic programme etudie 
quand il a fini {c'est du a TASC). 

On peut alnsl Studier la syntaxe de pro- 
grannmes dont I'adresse de fin. indi- 
quee par PRINT PEEK(175) + 
PERK(176)'256. est inferieure a 
25S56 (done des prtjyrammes ayant 
jiisqu a 95 serfeurs on faisant jusqu'a 
23K environ). Notons que SNTX 
COMPILE n'utilise. pas d'adrRjwfl snpp- 
rieure a 36820, done pent etre utilise 
tant que la HIMEM reste superieurf! a 
ce nombre (en particulier avec RLE qui 
abaisse la HJMEM a 36^^64). 



4 REhf 

* PRCBRPl>5P^E SMTX: * 

* fiWOt_YGE GYWTttXiCue * 

* D'UN 3R0Gi^ftl^h'rE EN * 

* BASIC flP-OuESaFT * 
**-»^*** 

5 BDTC 20'JVij: HcL-^i INiTIBLISftTION 
S SE>' 

* RCU'^IKES COURfilMTES ♦ 

g jjgiy. — -INCREnbMTE L£ POINTEUR ET 

LIT LE PROGHQMivjE— 
10 ft = PEEK (PTR):PTR = PTrt + i: RETURN 

19 REM TE^TE: si ERREUf? 

20 IF ERH !HEN POP ! EOTD iOO 
23 ^ETUfiM 

23 REM TESTE FIH DE i-IGiVE 

30 Filvil = Qsfl = PPFK (PTR): IF ft = OR 

fi = SS THEN FINI - 1 

55 RETURN 

39 REh^ TESTE SI CHIFFRE- 

40 TKN = 05fi = PEEK CPTft): IF i=l > =48 



57 THEN GQSUB lOsTKN 



43 
49 
50 



55 
59 
EO 

65 

69 
70 



72 
75 



77 
79 
60 



fiND fi < 
= 1 
RETURiM 

REjti TESTE SI LETTRE 

TKN - 0:ft = PEEi\ iPTR): IF fl ) = £5 
AND fl ( = go THEN GOSLiB 10; TKN 
- i 
HETUKN 

REM TESTE (-) OU (+j — - 

TKN = 0:fi = PEt^\ (PTR) : IF = 70O O 
R fl = 20i THEN EOSUB xOiTKN = 1 
RETURN 

Rtprj TESTE SI nPERPTEUR 

TKN = O'.n = PEEK (PTR): IF ft ? =20 
AND fl ( = ZOA THEN GOSUB 10:t 
KN = 1 : REW + - * / £j 
RETURN 

TKN = fJJfl = PEEK iPTR): IF fi = 205 □ 
R O = 206 THEN GOSUB 10:Tf\K = 1; 
REM fi.'iiD E~ US 
RETURN 

REK —TESTE (-> OU (, j 

TKN = 0;a = PEEK (PTR) : IF fl - 44 qr 
= 201 THEN eOSUB lOsTK.N = 1 

RETURN 



eg RE^^i TESTE GOTO-GDSUe 

SO GOSUB 10: IF ft < > i7l AND fl < > 1 

76 iHEN ERR = 2:Bt = "GOTO HH ROS 

UEf" : POP J GOTO 100 
9S RETURN 

99 SEM SfiUT->"tN D' IWSTR. 

LiJO PRINT IF ERR = 2 OR ERR = 3 T 

HEN PRINT B$;" " ; 
110 IF ERR i a fiND ERR < > THEN PRI 

NT CHR* (7) ; : REM tHREURS FflTflLE 

S -> BIP 

120 PRINT ERt<ERR): REM MESSflGE D'ERREU 
R 

130 PTR = PTR - 1! REf^ PflRFOIS NECESSfllR 
E 

140 ROSUB 30: GOSUB 10: IF NOT FINI TH- 
EN 140: REM FIN D' INSTRUCT I Ct\i? 
150 GOTO 10020 

193 RE1>; TEST COMPflRflTEURG 

200 SUP = 05 INF = 0:EBfl = O 
210 GOSUB 10: IF fl = 207 THEN SUP ^ SLjP 
+ 1: IE SUP > 1 THEN ERR = 6 : RE 

TURN ! REM > 
220 IF R = 208 THEN CDfl = EGh + 1: IF E 

Bfl ) 1 IHEN ERR = &: RETURN ! REM 

230 IF fl = 209 THEN = INF + 1: IF I 

NF > 1 THEM ERR = 6 J RETURN : REM 

^ 

240 IF R f = 2<J/ RND fi ( = 203 THEN 2 

10: REM } = OU ( 
2SO PTR - PTR - l:COM = SUP + EGA + INF: 
RETURN 

299 REM niTEND FIN D' INS, 

300 Q05UB 30! IF NOT FINI IHEN ERR = 3 

:E* = "FIN D' INSTRUCTION" 
310 GOTO 100 

395 REM fiTTFND LF TOKEi^J B 



400 


B = 


41 !B* 




BDTQ 430 


403 


E = 


44 ;b* 




SOTO 450 


410 


B = 


sgsB* 


— II k 13 w 

1 ■ 


GOTO 450 


415 


B = 


40:&* 


= ■■(■■: 


GOTO 450 


420 


B = 


193:B4 




! SQTD 450 


425 


B = 


194iB* 


= "FN" 


! GOTO 450 


430 


B = 


196:6$ 


= "'itin 


N" : QDTO 450 


435 


B = 


197!B* 


_ np^j.> 


! GOTO 450 


440 


B ^ 


208 : B* 




GOTO 430 


450 


EOBUB 10; 


IF fl < 


> R THEM ERR 


460 


RE": 


URN 







439 REM LIT NR. DE LIGNE 



Pom's n'= 6 



i 



500 
510 

S20 

530 

340 
550 

5&0 
539 

600 

610 

620 

650 
660 
&B5 

670 

680 

630 
699 

700 

710 

720 

750 

760 
770 
730 



730 
739 
6 OO 
BOS 



MOT TKN THEN 5501 REW 



NBR = 0:LNB = 
G03UB 40 i IF 
CHIFFRE 

LNB = lNB +• IJ IF LNB i 5 1 HEN ERR = 

SiTURW ; REM THDP LDNG 
NBR = NBR # lO + fl - 48! IF NBR > 63 
9gg THEN ERR = 4: RETURN ; RtM ^lU- 
MERO TROP GRAND 
□OTQ 510 

IF LWG = THEN ERR = 2:6* = "NUMER 

O Dt LIBIME": REM PflS D£ NUi«EHD 
RETURN 

RErt LIT NOM DE VflR. 

BOSUB 700: GO I □ 6faO: REM PRENU V^Ki 

ABLE REELLE 
GOSUB 710i BDTD 660: REtn PREND VfiRI 

FtBLE iNUi^ERIGUS 
BQGUB 720! GOTO SGO : REM PREfvD VflRI 

ABLE CHRIIVE 
ROSUB 750! REM VflRIflBLE QUELCOWQUE 
VRR(I) = VfiR: IF ERR THEN RETURN 
GOSUB 900: IF NOT TKN THEN RETURN 
: REM ( 

1 = 1 + i:VfiRa) = 0: GOSUB lOOOsi = 
I - 1: IF ERR THEN RETURN : REm 
EXPRESSION DE L' INDICE 
SOSUB 305! IF TKN THEN 670: REf\ v 

I RGULE 
GOTO 400: REM ) 

REM LIT UN NDM DE TfiBLEfiU OU DE 

VaRIftBLE 33 INDEX 

GOSUB 750: ERR = CVRR ( > 0) * 7: R 

ETURN : REM PREND VflRIfiBLE REELLE 
GOSUB 750: ERR = (VflR =2) * ?: RETU 

R!si ! REM PRtND VfiRIftBLE WUMERIOUE 
GOSUB 750: ERR = (VRR ( > 2) * 7: R 

ETURN : REM PREND VflRlflBLE CHfllNE 
GOSUB 50: IF NOT TKN THEN ERS = 3: 

B* = "VFtRIBBLE": R£TURfU : REM PRE 

MIERE LETTRE 
BOSUB 40; IF TKiM THErv 760: REM CrllF 

FRE 

GOSUB SO! IF TKN THEN 760! REM LE^T 
RE 

WQR = (a = 37) + 2 * fO = 36) : IF VO 
R { > THEN GOSUB 10: REM VArt= 
SI WRIflBLE REELLE, i SI tNTIER 
E ET 2 SI ChfilNE 
RETURN 

REM LIT UN NOMBRt 

PNT = 

PMT = PNT + i; IF PNT > 2 THEN ERR = 
5: RETURN : REK i SEUL POINT DEC 




li^flL PAR tMOPlBRE' 
filO GOSUB 520: IF TKN THEN 350! REffl EXP 

B20 BOSUB 
,\: i 

630 GOSUB AO: 
PRE 
RETURN 



: IF TKN THEN 305: REM POI 
IF TKN THEN 610= REM CHIF 



fl40 

050 LNG 



O: GOSL'B 60: rem SIGNE 
660 BOSUB 40: IF NOT TKN THEN RETURN 

: HEf^. CHIEF RE 
870 LKg = LNB + li IF LNG < = 2 THEN 66 
0! REM tXPOSflNT FlU PLUS 2 CHIFF 
RES 



Bao 


ERR 


= 5 


: RETURN 




sgg 


REM 


-TOKEN FflCULTflTIF 


300 


B - 


40: 


60T0 930: 


RErl ( 


905 


B = 


44: 


GGTD gSO! 


REi'l , 


910 


B = 


341 


GOTO 980 i 


REM' " 


913 


B = 


46: 


GOTO 980 : 


REM POII\!T 


920 


B = 


69: 


eOTQ 9aO: 


RBi'^i E 


925 


B = 


171 


BDTG 360 1 


REM eOTO 


930 


B -- 


193 


GOTO 930: 


REM STEP 


935 


B = 


153 


BOTO 960! 


REM TO 


340 


B = 


197 


eu 10 980 : 


KeM HI 


945 


B = 


200 


GOTO 9S0: 


REM ■»- 


5ZjO 


E = 


199 


eoTo gaoj 


REM NOT 


980 


TKN 


= 


Pi - PEEK 


(PTRH IF 



= B TH 



GOSUB 10! TKN = i 

990 RETURN 
599 RE.y. 

****■**«»*******«***«* 
• EXPRESS. NU?1ERIQUE » 
♦♦**#*♦****»**»#»*»»* 

iOOO SOSUB 60; IF TKiM THEM 1000: HEtf. SI 
GNE 

1005 GOSUB 950: IF TKN THEN lOOO: REM N 
OT 

1010 GOSUB 10: if R = 40 THEN 1040: RErt 
( 

1015 IF fl < > 194 THEN 1 lOO 

1019 REM FN 

1020 GOSUB 700! IF ERR THEN RETURN ; R 

EW FONCTIDN 
1030 GOSUB 415: if err THEN RETURN : R 
EM C 

1040 GOSUB 1000: IF ERR THEN RETURN : 

REi*! ARGUMENT 
1050 GDGUB 400: IF ERR THEN RETURN i R 

EM ) 

1060 GOTO 1900 

1100 IF Pi <. y 2lS THET^ 1200 

1109 REM 3CRN( 

1110 GOSUB 1000: IF ERR THEN RETURN : 

REf^ EXPRESSION 1 
1120 GOSUB 405: IF ERR THEN RETURN : R 

Er. VI??OULE 
1130 GOTO 10401 REM E)(PRF<^KTnN 2 FT ) 
1135 IF ERR THEN RETURN 

1200 IF fl ( > 22/ HND H ( ) 229 AND ft 
( > 230 THEN 1300 

1209 REM L£N, VftL ET PiSC — " 

12J0 GOSUB 415i IF ERR THEN RETURN : R 
EM ( 

1220 GOSUtf 2000: IF btiH THEN RETURN : 

REM EXPRESSION CHfllNE 
1230 SOTO 1050: REPI ) 

1300 IF R ( > 213 AND fi ( ) 214 fiND R 

( > 217 THEN 1400 
150g REN USR, PRE ET POS 
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1310 US =0: IF A = 213 THEM US = 1 
1320 GOSUB 415! IF ERR THEN RETURN : R 

i 

1330 B2II2) = PTR:I2 = 12 + 1: GDSUE iOO 

0!I2 = 12 - li IF ERR = ThEi\ 13 

50: RE!« flRGUi^ENT hiUMERIDlJE 
1335 IF ERC! ( > 7 THEN RETURN 
1340 PTR = 02(12) :tHH = Q: BDSUB 2OO0 : I 

F ERR ( > O THEN fttTURM : REiV Q 

RBUMENT ChfllNE 
1350 GQSUB 400 i £F ERR ThE.N RETUR;\ ; S 

EM > 

1360 IF US -HEiV ERR = I'j: R^:TUH^ : K&'>^ 

ERREUR FORCEE 
1370 GOTO 1900 

1400 IF ft < 210 OR fl > 22& THtivi 1500 

140g REM SG.M, INT, ADS, PDL, SQR 

. HMD, LOB, EXP, CDS, SIM, TRW 

, ai'xj, PEEK — 

1410 BDTD 1030: REM <fiRBUMENT) 
1500 IF fl < > 46 AND <fl < 46 OR h } 57 
) Tri&i 1600 

1509 REffl f^OMBRE 

1510 PTR = PTR - 1: GOSUS SOD: IF ERR TN 

EN RETURN 
1520 GOTO 1900 

1600 PTR = PTR -It IF ft = 34 OR fi = 223 
OR tfl > = 231 AND O ( = 234) T 
HEW 1700: REM DEBUT D' EXPRES5I0M 

16;,0 IF P: { 65 OR fl } 90 TH£^ ERR = 6: 
RETURN 

1619 REi'l VfiRIRBLE 

162G fildlV - PTRsIi - T1 + 1: GOSUB 650 
ill = ii - 15 ir ERR THEN RETUfiM 

1630 IF MflRd) = 2 THEN PTR = filCIi): G 
OTD 1700: REM DEBUT D' tXPR£55I0!\i 
ni-ifllWE 

1640 QDTO 1900 

lS3g REin CDMPfiR. CHfllNES 

1700 GDSUD 2000: rc esR THEN RETURiVi : 

REK EXPRESSION CHFlINE 
1710 RCSLJB 200: IF COM = O THtW ERR = 7 

J RE-URN s REM > < OU = 
1720 SOSLiB 2000: IF ERR THEN RETURN : 

REfv EXPRESSION CMflJIViE 

1B93 REi^i — DPESftTEUaS 

1900 GOSUB 200! li^ COM THEIM 1000: REM ( 
') OU - 

1910 GOSUB 70 : IF TKIM THEN lOOO: REM + 

- * y Du '■■ 

1520 BOSUB 75: IF TKW THEN 1000: RE.'^ Aru 

D DU OR 
1930 RETURN 
1 yy3 Htm 

* EXPHE5SIGW CHHIWE » 
********************* 

2000 GOSUB 345 i IF TKN THEN 2O0O i REM t 
2010 BOSUB 10! IF ft = 46 OR Ifl > -=46 

flnJD fl C = 57> OS fl = 196. OR fi = 

201 DR (Ft > = 210 AND ft < = 230 
AMD fl < ) 22a) ThEN ESS = 7? RE 

TURN : REM TYPE CHPlINE? 
2020 IF R ( ? 228 PND A < > 231 THEN 

21 GO 

2023 REM STR* ET CHR* 

2030 GD5UB 415; IF ERR THEN RETURN : R 

EM { 



2040 GOSUB 1000: IE ERR THEN RETURN J 

REr^l RaGUEnE^~ 
2050 GOSUB 400: IF EHR THEINi RETURN i R 

EM i 

2060 BOTD 2yU0 

?100 :(F { > 232 AND fi ( > 233 f'H£U 
2200 

2103 REM ^EFT* ET RIGHT* 

21 iO GOSUB 415: IF ERR THEN RETURN > R 
E." ( 

21 20 ROSUB 2000: IF ERR THEN RETURN : 

REM eXPRESSID'V CHfilNE 
2130 GOSUB 405: IF ERR THEN RETURN : R 

EM VIRGU^E 
2140 6DT0 2040: REM flRSUMENT ET ) 
2500 IF fl C > 234 THEN 2300 
220g REM iniD* — 

2210 GOSUB 415: IF £RR THEN rtF"rbR!si ; R- 
EM ( 

2220 BOSUB 2000: IF ERS THEiM Hh ! URN : 

SFM F.XPRESSION CHfllNE 
2230 GDSUB 405s IF £HR THEN ftETURix' : R 

EM VIRGULE 
2240 GDSUB 1000: i,- ERR THEN RETURN s 

REII EXPRESSION 1 
2250 iSDSiiR ^^05: IF TKN THEN 2040 ^ REM fl 

RGUMENT ET ) SI VIRGULE 
2260 GOTO 2050! RSI'S J 
2300 IF fl < 65 DR O > 90 THEN 2400 

2309 REM VRRIflBLE 

2310 PTR = PTR - Is GDSUB 620: IF ERR TH 

EN RETURN 
2320 GOTO 2900 
2400 IF q ( > 34 THEN 2500 
240g REM CHfllWE 

2410 BOSUB 10: IP fl = THFN ERR = &: R 
ETURN 

2420 IF R < > 54 THEN 2410: REM FIN DE 

Lfl CHfllNE? 
2430 BOTD 2300 

2500 IF fl < > 40 THEM ERR = 6; RETURN 
2503 REM < 

2510 BOSUB 2000: IF ERR THEN RETURN : 

RE.r EXPRES91UN CHfllWE 
232U BDTD 2050: REM ) 

2899 REM OPERflTEliSR 

2900 QDSUB 345! IF TKN THEN 2OO0 : REM 
2-310 BOSUB 70: IF TKN THEN ERR = 7: SFT 

URN i REH n / ET 
2920 Ht , URN 
2999 REM 

**«■*****■#*#*♦*#**#*** 

* ETUDE DES TOKENS * 

3099 REM FDR. - TO 

3100 GOSUB 700: GOSUB 20: REM VARIFiBlE 

REELLE SONS INDEX 
3 no GOSUB 440: iSOBUB 20: REM = 
3120 GOSUB iOOO: BOSUB 20: REM EXPRE3SI 

ON 1 

3130 GOSUB 420: GDSUB 20: REM TO 
3140 Q03UB lOOO: BOSUB 20: RE?] £>;PRESSI 
ON 2 

3150 GOSUB 9305 IF TK!M TIiCN 300Os REM S 
TEP 

3160 GOTO 300 

3133 REM — NEXT 

3200 GOSUB 30: IF FiM THEN 100: REM Pfl 

S DE NOM DE VARIABLE 
3210 SDSUB 700: BOSUB 20: REM VflRIflBLE 
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REELLE SPINS INDEX 
Z?9Ct RflSiJB 905: IF JHH THEN 32x0: REM V 

IRGULE 
3230 GOTO 30U 

3299 RE?^ DRTfi 

3300 ERR = izi GOTO 100: REr«t ERREUR -OHC 

EE 

3399 REfv) INPUT 

340Q BOSUB 910: IF NOT TKN THEN 3A50: 
R^M " 

3410 BOSUB 10: IF fl = O THEN ERR = 3iB* 
= "VRRIflBLt"; iiOTn 1 0O 

3420 IF R ( } 34 THEN 3410 f REM FIN DE 
Lrt LHHINE? 

3430 BOSUB 410: GOSUB 20: REM aQIIVT-VIR 

BtiLE 

344^ RFM RFOn 

3450 GDSUB S50i GOSUB 20 1 REM VORIPIBlc 
3460 BOSUB 905: IF TtSN THEIM 34S0! R£l*l V 

I HGULE 
3470 GOTO 300 

3499 REiW DEL 

3500 GDSUB SOO : BOSUB 20: REM LIGNE 1 
3510 GOSUB 405! GOSUB 20: REM V IRGULE 
3520 GOTO 4450! REM LIGNE 2 

3599 RE.ni Din — - 

3S00 GOSUB 750: GOSUB 20: REM TflBLEfiU 
3610 60SUS 415= GOBUB 20; REM i 
3620 GOSUB 1000= GOSUB 20: REM DIl^ENSIO 
M 

3630 BOSUB 905 1 IF TKN THEN 3620: REi»! V 
IRGULE 

3640 GOSUB 400! GOSUB 20J REM > 

3650 GOBua 305r IF tkn ThEN 3500= Rtl" V 

IRGULE 
3660 GOTO 300 
3639 REC! PRINT 

3700 GDSUB 30: IF FIN I THEN lOO: R=»n FI 

l\i D' IWSTRUCTION 
3710 SOSUB 10: IF fl = 44 OR ft = 59 THE,\ 
37005 RBt^. VZRGULE DU PDINT-VIRBU 

LE 

3720 IF fi = 192 OR R - 195 THEN BOSUB 
iOOO: eOSLfB 20; BOSUB 400S aOBUB 
20: GOTO 3700: RE!»? SPC< ET TfiB ( 

3730 PTR = PTR - 1 liqiDR - PTRs GOSUB 1000 
: IF ERR = 7 THEhi 3750: REiM EXPRE 
5SI0N KLWERIQUC 

3740 3DSU8 20: eOTO 3700 

3750 PTR = ADR: ERR = O: GOBUB 2O0O : GOSU 
B 20s GOTO 3700: REFn EXPRESSION C 
HfllNE 

3799 REM SPEED-, HCOLDR-, IN#, COlUR 

=,HIMEK:.L0!*1EM!, VTftB. HTRB, SCftL 
E=, ROT=, PR# - — 

3600 bUsUB lOOO: GDSUB 20: GOTO 300 J RE 

M EXPRESSION UNIQUE 
3699 REN CALL 

3500 GOSUB 1000: BOSUB 20: REM EXPRESST 
ON 

3310 ERR = Si BDTQ 100: REM ERREUR FORCE 

3Syy REM PLOT ET POh;E 

4OO0 GDSUB 1000: GOSUB 20: REM EXPRESSI 
OK 1 

4010 GOBUB 405: BOSUB 20: RErl V IRGULE 
4020 GOTO 3S00: REM EXPRESSION 2 

40y9 RbM HLIfJ El VLISV 

4100 GOSUB 1000: GOSUB 20-* REM EXPRESSI 
□ r\! 1 



4110 
4120 

4130 
4140 
4199 
4200 

4210 

4220 
4299 
4300 

4310 

4320 
4330 

4340 

43S0 
i399 
440O 
4449 
4450 
44b0 
4499 
4500 
4510 

4520 
4599 
4600 
46 1 O 
4S20 



4630 



4699 
4700 

47 iO 
4799 
4600 

4810 

4820 
4830 

4840 
4899 
4900 

4999 
5000 



5099 
3100 

5 ilO 

5120 
5130 

5140 
5199 



i REM EXPRESSI 

REi"*! V IRGULE 
REM EXPRESSI 



REM T 



GOSUB 405: BOSUB 20: REM V IRGULE 
GOSUB 1000: GOBUB 20: REM EXPRESSI 
ON 2 

GOSUB 435: GOSUB 20: REM 9,1 
GOTO 3S00: REM EXPRESSION 3 

HEy\ -— Di<m ET XDRflW 

GOBUB IOOO: GOSUB 20s REM EXPRESSI 

OM 1 

GOBUB 940: IF NOT TKN THEN 300: R 
EM ftT 

eOTO 4000: REM EXPRESSIONS 2 ET 3 

REfH — _ HPLOT 

GOSUB 935: REM TO 
GOSUB 1000! BOSUB 20: 
ON 1 

BOSUB 405: iiUSUy 2o: 
QOSUB lOOO: GOSUB 20: 
ON 2 

GDSUB 935! IF TKN THEN 4310: 


I3DT0 300 

REM — QWERH 

BDSUB 90: REM GOTO OU BOSUB 

REM GOTO ET GOSUB 

GOSUB SOOi GOSUB 20! REM LIGNE 
BOTD 300 

REM STORE ET RECQLL — 

SOSUB 750: QOSUB 20: REM TPlBLEftU 
IF VflR = 2 THEN ERR = 7: GOTO 100: 

REM TflBLEflU NUMERIQUE SEULEMENT 
BOTD 300 
REM LET 

SOSUB 650s GOSUB 20s REM VfiRIflBLE 

RHSLJB 440! GDSUB 20: REM = 

IF MflR(O) < 2 THEN GOSUB 1000 t GO 

SUB 20; BUfO 3UU: HbM EXPRESSION 
NUMERiaUE 
IF VftR(O) = 2 THEN BOSUB 2000: eo 

SUB 20: GOTO 300: REM EXPRESSION 

CHfllNE 
REM — ~ RUN — - 

GOSUB 30: IF FlWl THEN 100= REM Pfi 

S DE LIGME 
ROTO 4450: REM lIEImE 
REM IF, .THEN 

GOSUB lOOO: BDSUB 20: ti^m fcXPHESSI 
□N 

QOSUB 925: IF TKN THEM 4450: REM 6 
DTO 

GOSUB 430 i BDSUB 20 t REM THCN 
GOSUB 40 : IF TKN THEN PTR = PTR - 

i: GOTO 44SO: REM NUMERO D£ LlBNS 
BOTD 10015: REM SUITE 
REM fiMPERSflND 

ERR = a; GOTO 100= REM ERftEUR FuRC£ 
c 

REM REM 

ERR = li: PRINI " " ; hr^* (hRH) : P - K = 
NL: goto iOOOO: REM ERREUR FQRCEE 



REM SXPRESSl 



REM ON. . GOTO, 

ON. . GOSUB 

SOSUB 1000: BOSUB 20: 
OhI 

GDSUB got REM GOTO OU BOSUB 
GOSUB 500: GOSUB 20: REM LIGNE 
GDSUB 905! IF TKN THEN S120; REM V 
IRGULE 

GOTO 300 

REM WAIT 



40 
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tasUB ^0: REM E>,PScSSj 



REM VTHGliI F 



■ TKN THEM 3eOO: 
SI VIR6IJLE 



REm E 



REln VOHIfl6L£ 



GOSUB 20: REM EXPRESSI 



REM Hfi 



5200 EOSUB 1000 
OK 1 

52iQ B03UB 405: GOSUB 20: 
5220 GOSUB lOOOi GOSUB 20 i 
OiM 2 

5230 fiDSLIB 905: If 
XPRESSIO^J 3 
5240 BOTQ 300 

5299 ?;EM DEF 

5300 SDSUH 425: QOSUB 20 
fi?;iO GOSUB 700: BDSUB 20 

REELLE SANS INDEX 
5320 GOSUB 415: SOSUB 20 
5330 GDSUB 700: GOSUB 20 

REELLE 5ft!\iS IWDE>; 
5340 GOSUB AOO: GOBUB 20 t Rem ) 
5350 GOSUB 440* GOSUB 20: REt'. - 
5360 SOSUB 1000 

5370 60T0 300 

5399 REM LIST — — 

5400 BOSUB 30s IF FINI THEN 100; 

b Ut NUI>^ERD DE L.TSNE 
GOSUB eO: IF TKW THEN 5450: REM VI 

RBULE OU TIRET 
54?0 ftOSUB 500: GOSUB 20: REM LIGWE 1 
5430 BOSUB 60; IF NOT TKN THEN 3O0 ; RE 

M VIRGULE DU TIRET 
5450 GOSUB 30= IF FINI THEN 100: REM Pft 

5 DE Lie^iE 2 
5460 GOTO 4/j.F.O: REM LIGWE 2 

5499 REM GET 

5500 GOSUB 620: ERR = 6 * (ERR = 7) + rL^ 

H; EOSUB 20s REM <-;fiRiflBLE NUff.CRlQ 
UE CONSEILLEE (Si tHH^/ R'„UR& ERR 
= 13) 

5510 GDSUB 905: if TKN TriEfM 5500= Ht^a 

VIRGULE 
5520 GOTO 300 
3333 REM 

* DEBUT D'UNE LIGHE * 

iOOOO 1ST = 0! GDSUB lOsNL'^ ft: GOSUB iO 
:NL = fi ♦ 256 + NL : ir = O 
W 12000 



h: GDSUB :lOiiL(M 



looi; 



10020 



100 jO 



1 0040 



1fi003 GOSUB lOiL.M 

* 256 + LN 
1OC06 INVERSE : ^Sl^T " LlGWE ";LW;" " 
SviuRMflL : REM LIGNiE 
lOOlO Sh'^ = IS'I + it IivVLhiSt : PRINT IST 
NDRWRL : REM INSTRUCTION 
GDSUB 10'. REM PREMIER OCTET DE l' 
INSTRUCTION 

IF fi = SB THEN 10010: RFM PIM !>' 1 
INSTRUCTION 

IF R = O THEN lOOOu; H-'f} FIN DE i. 
TGNt 

IF Cfl > ^ 65 ftND ft i = 30 > '^riHr'i 
ft = 170:PTR = PTR - i: REM LET I 
MPLICITE 

10050 ERR = O: IF H ( i2B UR H ) = 132 

THEN ERR = l: GOTO 100 
10060 I = Osll = 0:I2 = 0: REM PDINTEURS 
DES PILES DE VfiR, fll ET H2 

SEW EN VOITURE SIMONE! 

DN ft - i27 5DTD 3.00,3100,3200,330 
O, 3400, 3500, 3F.no^ 3450, 300, 300, 380 
0, 3000, 3900, 4000, 4100, 4,t00 
ON ft - 143 GOTO 300, 300, 3fl00, 4300 
, 4200, 4200, 3800, 300, 3S00, 3800, 300 
, 300, 300, 300, 300, 300 

nw ft - isg GOTO 36oo, 3oo, ^eoo, 3eo 

0, 3900, 4400, 300, 4500, 4S0O, 3600, 46 
00, 4450, 4700, 4800, 300, 4500 
ON - 175 SOTO 4450,300,5000,300 
, 5i00, 5200, 300, 300, 5300, 400O, 37O0 
, 300, 5400, 300, 5500, 300 

* FIW DE L'MivJftLYSE * 
********************* 

12000 PRINT : PRINT "yaULE2-VGt!Fi RFV/FNI 
R ftU PROBRflMME INITIAL?"; 
GET fl*! Ir Hf t > "□" HND R* < 
> "N" THEN 12010 

PRINT Fl*; IF R* = "Q" THEiV POKE 
103, PEEK (1312): POKE 104, PFFK 
(1913): POKE 175^ PEEK !1D14)I PQ 
KE 17&, PEEK U'315) ! HEn HESTftUHE 

LES OOIrMTEURS 
END 
REM 

» INiTIRLiSflTION * 

20000 TEXT ; HOME : VTftB S: HThB 5 
20010 PRINT "PROGRRMItE D' fil\iflLVSF SYNTPX 
IGUE"! PRINT I PRINT 



10999 
1 1000 



11010 



i 1020 



1 1030 



11999 



12010 



12020 



12030 
19939 



20020 



20030 



£0040 



2O050 
20099 

20100 

201 10 



20I.20 



HTRB 12 
: PRINT 
HTRB 3; PRINT 
1982": PRINT 
PRINT t PRTi^T 



PKiiVl "PHR OLIVIER HERZ" 



■ (C5 PD!«' S OCTOBRE 
PSTNT : PRINT 
'LIGNE DE DEPART " ; 
: POKE - 16366,0: INPUT fl4:Bhe = 

VfiL ffl*) 
DIM ftl CiO) , R2(10) , VfiR(iO) 
RE'Vf — IWITIflLISE LE TftR 

^EflU DES eRREURS 

Dim ER*(I3): FDR ERH = TO 13: R 
EHD ER« (ERR) : NEXT 

DfiTfi CORRECT, INSTRUCTION IVON RECO 
WNU£, ftTTENDU, rtTTENDUE , W! iWi- RO DE ^ 
IGNE ) G3999,N0MBRE INCORRECT, EXP 
RESSIDN INUUi'iKtCTE 

DOTq CONFUSION DE TYPE, INSTRUCTIO 
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B.I. p. Information 



POUR VOTRE APPLE II 



A - CARTES MEMOIRES LEGEND U.S.A. 

en promotion: Carte 128 K - FF. 5025 HT 
Carte 64 K - FF. 3050 HT 

Memoire suppl^mentaire 
et Vitesse acceleree. 

Ces Cartes Interfaces comportcnt : 

— La carte Memoire interface. 

— Le Manuel d'Utilisation. 
[Francais en option). 

— Les programmes sulvaiils ouverts et 
d'utilisation facile - 

• V.C Plus. Offre 82 K ou 136 K mamoires 
(80 cotonnes en option) 

Utilisabies pour Visicalc. 

• Oisque emulateur. simule Drive 
d'acces rBpide DOS (CP/M ou 
Pascal en option.) 

• Selecteur de Djapositives, qui donne 
instantanement 16 images par Carte 128 K 

• Memory Master, qui libera 10 K de 
FAppIe ; Flipps DOS 3.3. et 3.2. 

• Memory Test, pour tester les memuires. 

• Hires Demo, et autres. 

Les Csftes d'extension Memoires LEGEND 
sont fiables ef Garanties 1 an. 



B ' LOGICIEL GRAPHIOUE ARTISTIQUE 

en [promotion : F.F. 050 HT 

CEEMAC langage graph i que et un album. 
« ORGUE DE FEU » OU « SPARKEE " 
a voire choix. 

Pour le plassir de vos yeux, des images 
moiivementeea et interactives, jamais 
exactement les memes. Suite d'images 

SCORES " creees par d'autres [Albam) 
ou par vous memes (CEEMAC). 



W OinPERBfiND, TWSTRLfCTlON Cf4LL, FOnC 
TION USR, INSTRUCTIOr.) REM, INSTRUCT 
IQM DfiTfl,eET WUmtHiyjif 

20199 RE.;*! - — CHERCHE Lfl i iLi 
WE DE DEPfiRT 

20200 PTR = PEEK (1512) + PEEK (lSi3) 

> 256 1 SE,V DEBLfT (STDCKb) Du tirtUlS' 
Rfli^nmE H hlUDIER 
20210 BOSUB 10:ML = f*i BHsLiH 10:NL = ft 

* 256 +• ml: if NL = O then i2000: 
HSi*! DEBUT DE LIBWk 

20220 GOBUB i.O:uN = fl: GQSUB iO:LN = ^1 

* 236 i- LiNi; IF LM > BEB thEN 1 
00061 RFM B0^ NUMERO DE LIG=V'E 

20230 PTR = I^L! BOTO 20210: .REM SHljr->FI 
N DE Lfl LIGf^E 



* EXEC QUI ChftRSE 5iMTX + 

* flU-DEBSuS Du ^tiO " * 



* 



13 
20 



lO D$ CHR* {IZ'i + Csi'^JS (4) -r^* 

= "byNTfiXE''- SEi^i AiQ>i DlJ .-IC 
HitK EXEC 
REM ECRITlJhE du FICHIES 
PR iwT D* "OPEN " mDi " liELE'^E " v-i^ti 
* "OPEN " N*D$ " ifti R I T£ " J HE^\ FC 
R!«E CDi^PfiCTEE DE DuVtRTUSH 

29 REri 

103, :104: DEBLfT PROGSPt!''i^'iE 
176,176: FIN PRDGRfiM^f^r 

30 PRINT "POKE iSi2, P£iK ( 103) : 30 

KE 1913, PEEK (104) '* 
hO PRINT " POKE 1916, P$FK C^yfi) i ^»r. 
KE 1315, PEEK U76) " ? REh STOC, 
KflGE DES POIiviTEURS DJ .'"^hCGRh 
m.E ETsjDTER 
PRINT " POKE 103, PEEK < i7S> ^ ^OK 

E 104, PEEK< 17&) " 
PRTKtT ''POKE PFtK ( 103) ( 10 

4>*256-l,0": R£n DEBUT DE SK 
TX=FIM DU PRDEHfl;^i?f:E INITIO*- 
PRINT "LDPD S^iTX'=: REM Drv CHfi 

RBE 3NTX 
PRINT "DEL 1,0"'- REn ON r'lET ^ 
ES WLITRES POTiMTEURS EiNS PLACE 



50 
60 

70 
SO 



90 PRINT "RUN"; 5 REM ON LfiNCE 
TX 

100 PRINT D* " CLOSE " N*D* " L.DCK "N* : 

REM FORME CQMPflCTEE DE E 
ERhlETURE DU f^iCHTER 
6i5535 REM **********-**■*■**-**** 

* DCTOBRE 19S2 * 
*(C> DLiyiER MERZ * 

* POUR PGI'fl'S * 



B.I,P. 

22, rue Joseph Dijon - 75018 PARIS 
Tel. 255 44 63 
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Tortue Ampersand 

Jacques Duma 



La tortue esf una petite bete qui se 
deplace sur !'6cran auec une plume 
pour fairs des dessins, Elle obeit a deux 
urdres de base : AVANCE et 
pouvoir la program- 
mer et piofitei du BASIC Applesoft, de 
nouV£>II(>s instructions ont ete creees 
giace a I'ampeisdjid (&). Ainsi. sans 
perdre Ip.s instructions HPLOT ou 
DRAW, on peut. apres avoii fail 
BRIJN TOKlUt&. multiplier les possi- 
bility graphiques de I'Apple. 

Mode d'emploi 
de la tortue 

Dans les defiiiilioiis ci-dessous, les 
parnmfftrp.s dp.^ differentf:'! instnirtions 
sont des VQiioble5 ou des expressions 
arithtriKtiqupii Rn BASIC. Dans hs, 
exeniples, on utilise les variables 
A.X.Y.N qui peuvent etre remplacees 
S loisir par des constanfes ou des 
expressions. I ous les calculs sont effec- 
tues en nonnbres reels, mais les coor- 
donnees de la tortue et son angle 
d orientation (exprime en degres) sont 
convertis apres enrondi en nombres 
entlers poatifs (X-<280, Y-«192 et A< 
360) pour tous les deplacements. 

&I : initialisation 

L'instructjon [&JN] initialise la tortue. 
Selon la valeur de ia variable N. on 
passe en mode HGK [&ill, HGK2 
t&12] ou HGR pleine page [S:I3]. La 
tortue est placee au centre, toumes 
vers \a droite [&P140,96,0], plume 
levee [&L1. Cette instruction n'est pas 
tout-a-fait identique a HGR car elle 
efface I'ccran AVANT de I'afficher, ce 
qui evite de montrer les restEK du der- 
nier afflchage graphique. n est indis- 
pensable d'initialiser la tortue ou au 
moins de la centrer avant de FutiJiser au 
debut, sinon la position de depart est 
ind&ermlnee. 

&E : ecrire sur une page 

f&Ei) ou [&E2] indique sur quells 
page va s'effectuer la prochaine ecri- 
ture. quelle soit visible ou non... Ne 
pas confondre avec rinsEruction [ScMN] 
qui affictie la page N sur l eaan. il est 
done facile de dessiner sur la page qui 
n'est pas actuellement visible. 



SdVI ; montrer la page HGR 

[&MfN]attiche sans I'effacer la page de 
haute r^olution graphique numero N. 
Si N = 0. on repasse en mode texts 
sans modifier ni la position du curseur, 
ni raffictiage du texte, ni la taille de la 
fenetre. Si N — 1. I'affichage se fait en 
mode mixte page 1, c est-a-dire avec 
Ics quaire lignes de texts en bag de la 
page. Si N = 3. Taffichage de la paqe 1 
se fait en pleine page. Si N = 2, affi- 
chage pleine page de la page 2. 

&R : rideau 

[SlRC] recouvTG ['aaan avec la couleur 
C. Le numero de la couleur est com- 
pris entre et 8. Les nombres de a 7 
sont les couleurs usuelles. Le nombre 8 
represents la couleur inverse (lecran 
est passS en n^gatif). La couleur d'affi- 
chage en cours pour la tortue n'est pas 
[Hodiri&. L'instruction [&R] travaille 
snr ia page active (celle indiquee par 
[&L]). 

&.C : centrer la tortue 

[&C]place la tortue au ceiiire de I'ecran 
et la toume vers la droite. L'instruction 
[&.C] est equivalente a [&P140,96,0j, 
La ligne jusqu'au centre de recran n'est 
tracee que si la plume est baissee. 

&P : placer la tortue 

[&PX,Y,A) place la tortue au point de 
coordonnees {X,Y) avec uti angle A 
par rappnrt a ITiorizontale. [&PO,0,0] 
place ia tortue en haut a gauclie de 
I'ecran et [&P279. 191,0] la place en 
bas a droite . Les tois paiametres peu- 
vent etre modifi& independamment. 11 
suffit que les deux virgules soient pre- 
sentes dans Finstruction. Tout champ 
vide correspond a un parametre non 
modjfie. l&PX, J. l&P.Y.]. 1&P.,A] ou 
[&PX,Y,] sont par consequent licit es. 
Pour A = 0, ia tortue est tournee vers la 
droite, pour A = 90 vers le haut, pour 
A = 180 vers la gauche et pour 
A - 270 vers le bas, /unsi. A = 270 est 
equivalent a A =—90. 

&L : lever la plume 

Si la plume est levee, la tortue se 
deplacesur I'ecran sans laisser de trace. 



&B : bai^r la plume 

Apres [&BC], la tortue trace son che- 
min sui I'ecran dans la couleui C. D faul 
remarquar que [&L] n"p_st pas identi- 
que a [StBO] ; si la plume est levee, 
Fecran n'est pas modtfie. ; mais si la 
plume est baissee en noir. !a toitue 
efface I'ecran sur son passage. 

&A ; avancer 

[&AD] nvnnre la tortue d'une distance 
D dans la diiection vets laquellt; eliy esl 
tnumee. line distance negative corres- 
pond a une tortue qui recule , 

&T : toumer la tortue 

[&TA] toume la tortue d'un angle A, 
Gxprime en degres. par rapport a sa 
position prfe^dente. La valeur de A 
sera positive pour toumer dans le sens 
biveise des aiguilles d'une montre (sens 
rrigonometrique positif). [&T180] fait 
faire derni-toui a la lortue. 

&S : simuler I'avance 

Pen net de calculer I'avance de la tortue 
sans la dq^lacer, ainsi les erreurs de 
deboidement peuvent etie cui itrulees , 
et le deplacemenr pent etre riissorie du 
calcul des coordonnees (vob [SlO] et 
L&VJ), 

On ne peut pas simuler plusieuis avan- 
ces successives : une seule est penmise 
a la fois. 

&0 : ou est la tortue ? 

Renvoie la position et Forientation de la 
tortus dans trois variables reelles quel- 
conques du programme. Apres execu- 
tion de (&OX,Y,A]. les variables X et 
Y contiennent les coordonnees de la 
tortue et A Tangle qu'elle fait avec 
Fhorizontale. 

Attention ! Dans cette instiuction, X, Y 
et A doivent etre exciusivem&nt des 
variables rSelles simples. 

Lei cuiiteiius de X, Y et A seront 
modifies S I 'execution de Finstruction. 
Les vdleuR) reluumees dans X, Y et A 
reprpsentent la position fictiue de la tor- 
tue apies execution du dyplacement 
simule par Finstruction [fc.S] 
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Si I'instruction [&0] est ex&utee aprfe 
un deplacement reel de la tortue (ins- 
tructions &A &P 8C &[ ct &V). on 
obtient dans X, Y et Ala position reelle 
dc !a tortuo a cet instant. 

II faut remarquer que I'instruction [&5) 
n'influence que les coordonnees de la 
tortue, I'iingk retoumfi par rinstrucflon 
[&0] e^ done toujoiirs I'anglc effectif 
de la tortue. 

L'instruction [&0] permet de controler 
a la tortue est encore sur F&ran apres 
[&S] , mais peut aussi servir a memori- 
ser la position rfeUe de la tortue pour la 
replacer en un point particulier avec 
[&P] apres un petit dSlour. 

&V : valider I'avance 

Apres avoir simule I'auance de la tortue 
avec [&S] et verifie quelle est toujouni 
sur 1 ecran auec [&01, on peut ualider 
le deplacfeTiHiiil par [&V]. Celle ins- 
truction ne fait rien si raicun mouue- 
ment n'a ete simule prec&Jemment. 
Par Rxempte, [SLA12fl] fait la meme 
chose que [&S120;V] ou 



Instructions composees 

On peut, comme nous venons de le 
voir a la fin Hu paragraphs precedent, 
composer plusieurs instructions deiriere 
nn memf? symbnle ampersand. D suffit 
de les sepal er par un point-virgule . 



Par exempfe [&I;&R8:&A123] peut 
s'eoire plus sitnplement [Stl:R8:A1231. 

On peut ainsi tracer un cane grace a 
rinstruction [&I1;B3;A25;T90; 
A25:T90: A25:T90; A25;L) . 



Remarqiies generales 

On peut utiliser ics Lnstxuctions graphi- 
ques habituelles en meme temps que la 
tortus , La tortue n'sst pas influence 
par I'utilisation du HPLOT, car tous ses 
mouvGments sont calcules entre sa 
position initiale TORTUE. X-Y (valeur 
enti&re) et TT.X-V (vaJeur reelle) et sa 
destination repr&ent^e par BUT.X-Y 
et BT.X-Y. 

Par centre, si I'on fait HPLOT TO X,Y 
apres avoir utilise la tortue, on trace 
unc ligne cntrc la position de la tortue 
et le point K,Y. Si on fait ensuite 
[StAD] la tortue avance alors de D a 
partir de sa position precedents et non 
a partir du point X.Y. 

De meme, la couleur de b tortue est 
memorisge dans TORCOLOR. Cette 
couleur a une influence sur cells des 
lignes tracees par HPLOT, mais HCO- 
LOR n'a pas d'effct sur la couleur de la 
tortue. Ainsi, HCOLOR = 2;&B3: 
HPLOT10,10 va marquer un point 
blanc (de couleur 3) . 

Conclusion : pour evrter toute confu- 
sion, utilisez [ScP] de preference a 
HFLOl . tn outre, cela transformera 
votre tortue en lievre... 



Charqement 
du programme 

Pour utiliser la tortue. il suffit de faiie 
(BRUN TORTUE&l]. Le programme 
est charge en memoire entre les adres- 
ses $9150 (37200) et $95AC (38316). 

II est done situe juste sous le DOS. Les 
pointeurs de I'ampersand sont alors ini- 
tialises a I'adresse de debut de pro- 
gramme : 

Debut du programme en 
$916D (37229) 
Pointeurs ; 

$3F5 (1013) =$4C (76 JMP) 
$3F6 (1014) =$6D (109) 
$.iF7 {101.S)=$91 (145) 

Un CLEAR est alors genere et le pro- 
gramme donne la main a I'Applesoft 
psr un saut a $D43C. On peut utiliser 
les nouveltes instructions aussi bien en 
mode immediat qu'en mode differe. 

Si Ton veut changer TORTUE& par 
programme, il ne faut pas utiliser 
BRUN car le programme seralt Inter- 
rompu et le controls redonne au 
niveau de commande du BASIC. 11 
faut alors, au debut du programme uti- 
lisateur, faire un BLOAD et initialiser 
les pointeurs de la maniere suiuante : 

10 HIMF.M: 37200 

20 PRINT CHR$(4)>.BL0AD 

TORTlJE&s 

30 POKE 1013.76 : POKE 
1014.109 ;POKE lUlb.145 
40 REM suite du programme. 

A VOU3 de jouer... 



1 ORG t9i5l! 

OGJ im 
NI.S 

ixitimiixxinmijnmtiaxitixniix 



2 
3 

5 

7 
8 
9 

le 

11 
12 
13 f 

15 ILLERR 

16 mUERR 

17 ^IC 

18 am 

19 } 

21 UimE 

22 ; 



PAR J.DIIW 



22/5/82 



xmiirmxiinixxxKirKxxixxiixxx 



EQU *[)EC9 
EQIJ tE!99 
mi tD07i 

Eou mx 



EQU tDECO 

mi tim 



m on Slum 

, m STXERR 



2^ EiffIER2 EQU 
25 EXfWSS EGU 
24 ffiEL.IffT ECRJ 

27 m,m. W 

28 SP.ffP EQU 

3G flY.SFP 
31 fFP.)(Y 

32 ; 

33 HULT.AY 

34 MJ 
33 PLUS 
% mJ}S 

37 OKIH^ 

38 SINUS 

39 PLUS, 5 

IB ; 

^1 m 

12 CHARGE 

44 



m 

EQU 

EfflJ 
EOU 
EQtJ 

mi 

EOU 
EfflJ 

EQU 
E(JU 



$El(i5 
I0D67 
tElOC 

*EB53 
mf9 
*£9E3 
*EB2B 

*E97F 
1E932 
*E7Cl 
*E7AA 
tEFEA 
$EIT1 
*E7fl9 

$1K3 
iEB^ 



JEXPRESS fiCUl 
fCCNVERSION im^IMT 

jctsiUERSiQN m^mi 



m *F3F2 



fflPERATIOMS 



;/icu A mim£ 

fEFAE ECRAN 



44 
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15 mm m «f^4 
% \mm EQU iF^FD 

V if LOT EQU tF157 
m \Ui£ EQU tF53A 

56 mSCQLOR m tF6F6 
51 f 



fCOUOft^ ECflAN 
fCOllflJR=(X) 



52 flOJO 

53 AOJl 



EPZ tAl 



54 PffiHffi EPZ *E6 

55 mm EFZ *A 

56 TORIUE.X EPZ *7 

57 TORTIE.Y EPZ *9 
53 BUT,3( EPZ «F9 
59 aJT.Y n>l IFB 
dO TtRCOLO^ EPZ tFC 
fil flfCLE EFZ fFD 
62 

62 AMPER EfflJ t^^ 
61 Hlfei EPZ $73 

65 \ 

66 YixxxxxxixxxiiKixxiixxxxixicxi 

67 XIXIQICIXXIIXXIJKXIXIXXXXXXXUXXI 



fL=ll B=l 



85 mmxj^ixxxxKixijiiiHimxxi 

37 debut; 



89 
911 I 



BNE TCKTIE 
RTS 



}SI i RETQUR 



68 J 






127 


tW #'E' 


£9 DffART! 






128 


&£ T9 


76 


m mm\ 




129 


JfP EffllfiE 


71 


ST^i (WER+l 


fPOINTEURS a 


130 T9: 




72 


LDA /DEBUT 




131 


OP rw 


73 


STA ftffi'ER+Z 




132 


m 110 


74 


LWk »4C 




133 


JfP HQNTRER 


75 


STA ftfPER 




134 no; 




76 ; 






IK 


CMP I'R' 


77 


m WEPART 




136 


m Til 


78 


STA HDei 




137 


Jff RIDEftU 


79 


LDA /DEPART 




133 111! 




m 


3TA KIfBH-1 




139 


CMP 


81 f 






146 


T.EfSi 


32 


JSR CLEAR 




111 




83 


JfP BASIC 




142 t 




84 ; 






143 TtERR 


J* STX£«i 



91 TORTIE 


Cff *T' 


151 


JSR tBl 


92 


B€ TO 


151 


Of r/ 


93 


W PLACER 


152 


m p.oTj 


91 to; 




153 


lSR EKTIER2 


% 


*'ft' 


154 


LDX mi 


% 


Tl 


155 


CPX **1 


97 


W(*tCER 


156 


BEQ F»256 


98 m 




157 


KS F,EI^ 


99 


Cffl'T' 


153 P.MNSX 


STX BUT,X+1 


lOD 


ffl€ T2 


159 


LDX AOJl 


lei 




16D 


STX BOT,); 


112 T2: 




161 


m TRANSX 


1D3 


OP rs' 


162 PtLITJ 


JSR UIRGILE 



104 
105 

106 T3J 
107 

loe 

10? 

110 T4t 
111 
112 
113 

114 T5: 
115 
116 
117 

U8 T6: 
U9 
IZO 
121 

122 T7t 
1Z3 
124 
125 

126 Ts; 



m T3 
M' SIltLER 

OP I'y 

m T4 

JHP miDER 

DP I'D' 
H€ T5 

M> m 

CfP #'B' 

m u 

W BAI9SER 

OP i'L' 
BfE T7 
J^P LBflER 

OP I'C' 
BNE Ta 
JiP CBJTRER 



144 ; 

xxxxxziizinaixiiixxxxxxxxxxxxxx 

146 X PUCE U\ IfMm: «P X,Y * 

147 XXIXiKIXMIlXJIXXIIKXXXIXXIIXIU 

119 I 

149 Pl^: 



;X>256 

fX^'512 EHREUR 
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163 




*'/ 




222 I AWICE LA TORTUE! «A D « 


U1 










165 




ENTIER2 




221 J 






166 


m 


ACUO 




225 mm'. 






167 


m. 


P.ERR - 


fY:>256 asajR 


m 


JSR SIHULE 


163 


m 


flCUl 


w 


JSR WALIDE 


16? 


CPX 


*I192 




228 


W SORTIE 


170 




PvERfi 


;y>i9i nmM 


229 \ 






171 


STX 


aJT.T 




23G i]U!Ciciiiixxiixx](ix3(xxM:iixxxni)!3:i 


172 


^ 


TRflNSY 




231 n TOUf^ LA TCKTIE! ST A n 


173 P.LIT_A 


JSR 


VIRGULE 




Z3Z mxxmmxMjcxxHiMxiiicov 


171 








233 \ 






175 




*'V 










176 




P.FIH 






JSK 




177 


JSR 


EXPRESS 




236 


8EQ 


TTtERK 


173 


JSR 


REELtBfT 




237 


Ut 


* r 


179 


m 


ACUfl 








1 i tbKK 


ISB 


STfl 


fflGLE+L 




2^ 


JSR 


EXPRESS 


181 


m 


ACUl 




241 


JSR 


REEL.IKT 


182 


SIA 


ANOE 




241 


CLC 




183 


JSR 


CAORAfKU 




212 


LDA 


ANGLE 


181 


JSR 


TRAffiA 




243 


ADC 


ACUl 


laS P.FIM 


m 


PLlfiC 




244 


STA 


mil. 


186 


BNE 


F.TI^CE 




2« 


LDA 


AMQXn 


197 


JSR 


TCeUT 




24S 


ADC 


ACUfl 


198 


JHP 


SfflTIE 




247 


STA 


AHGLE+1 


la? ?*jm£. 


JSR 


PLQTsem" 




m 


m 


zmmL 




JHP 


OTTIE 




249 


JSR 


TRAf-ISA 


m P.254 


LDX 


flCUl 




251) 


JI1F 


SORTE 


1?2 


CPX 


*!21 




251 TT^Em 


Jff 


3T)(Em 


193 




P.EF3i 


fX>279 EffiEU? 








191 


LDX 


ACU9 




253 IlClUSIIXXMXlXIXXXXMXXX'liXXICM 


195 


JMP 


F.DA*ISX 




SI I smE L'AWCE! as D * 


196 P.™ 


JHP 


ILLERR 




^55 xxixixxxxiixxximxixicxiixxxi 


197 1 








256 ; 






193 CmNQ.: 






257 SMJLBii 






199 CMim 


m 


ANGlX+l 




258 


JSR 


SIMILE 


200 


BHI 


CM® 




25? 


•W 


SORTIE 


2DL 


SEC 






26a 1 






292 


UA 


AfO£ 




261 PI_130 


^e 


7B0EFA350F 


203 


SK 


tllfll 


fA=A-3iG 


262 ; 






201 


STA 


(m£ 




263 TFl 




Booaoooooo 


205 


m 


ANG1£+1 




264 TF2 




[{lOQOnooao 


206 


SK 


t!i 




265 ; 






207 


STA 






266 TT^X 


m 


DOOOOGOOOO 


208 


JMP 






267 TT.Y 


m 


ooooDimooe 


209 CPUS 


LDA 


AhGl£+l 




263 ET.X 


m 


DOOOOOOOOQ 


21G 


m 






269 BT J 


m 


DOOOODOSDD 


211 


RTS 






27B AGL 


m 


oDoseodOD 


212 C.ADO 


CLC 






271 ; 






213 


m 


ANGLE 




272 SmiES 






211 


fiOC 


*!lfl1 


}A=ftt36l! 


273 


LM 




215 


STA 


AiCLE 




274 


LAY 


/AGL 


216 


IDA 


»IGLE+l 




m 


JSR 




217 


flOC 


ill 




m 


m 


tPI_l80 


213 


STA 


Ai«LE+l 




277 


LDY 


/PIJ90 


219 


JilP 


CtPLUS 




m 


JSR 


NULTtAY 


220 J 








279 


JSR 


NFPJFl ;A«PI/18a 


221 xmiixxmiiixixxiixxxxMMi 


280 I 







281 


J3R tBl 




3^0 


JMP AT^Ml-P 


282 






3^1 \ 




233 


fFPJF2 




312 TF2,fFP 


LM *TF2 


m 


JSR TFUfFF 




313 


LDY mi 


295 


JSR COSIHUS 




311 


JtfP AYffFP 


m 


JSR TF2*SFP 




315 J 






JSR rWLT 




316 TFUSfP 


LUfl tlFl 


288 


JSR TFl.SFP 




317 


LDY /TFl 


23? 


m fFP.TFl 


fOlOKCm/iaO) DAfS Fl 


313 


Jtf AY.3FP 


m f 






319 




291 


JSR SFP.ff P 




350 TF2fSFP 


LDA tTF2 




JSR SIMJS 




351 


LAY mi 


293 


JSR TF2,SFP 




352 


Jfr flY.SFP 


m 


JSR fftlT 




353 f 




m 


JSR fFP.TFS 


SDiSIfiCAxPI/lSO) KtfS TF2 


351 xmixicmxxrtixnfMixxxiixifi 


m r 








297 


JSR TF2.HFP 






293 


IDA tritt 




.357 ; 




299 


LDV /TTJ 




353 ViiODERJ 




3S0 


^R AY.3FP 




359 


JSR *B1 


3111 


<m mm 


;M-D1S]S(A> 


340 


JSF! WiLIDE 


302 


LDX »BT.V 


;->BT.Y 


3il 


JHP StHTIE 


303 


LDY /BT.r 




m I 




30^ 


ifiR fFP.XY 




36-3 WLiae; 




305 


JSR PLtE^5 


fffiRCM)I-> EUT*Y 


361 


LDA aiT^X+l 


30^ 


JSR REEL. INT 




345 


m> #tl 


3D7 


m AOIU 




346 


BEQ y,254 


388 


KQ 3. OK 




347 


BCS \},m. 


309 


LDA *i20O 


;if>191 


368 y,Y 


IDA EUT.Y 


310 


STfl flCUl 




369 


Of t!192 


3U s*a! 


LM ACUl 




379 


BCS WtERR 


312 


STA BUT.Y 




371 


LDA PLUHE 


313 \ 






372 


0E V.TRACE 


311 


LDA *n.)! 




373 


TOajT 


315 


LDY /rr.x 




374 y.TR^^E 


M> aOTOKJT 


316 


JSR AY.fflT' 




375 g»256 


LDA Bm.)( 


317 


JSR TFhSFP 




374 


W l!21 


319 


F1U3 




377 




319 


LDX »BTtX 


;-> BT»X 


373 V*ERR 


JfF ILLEF® 


320 


LDY /BT.X 




379 \ 




321 


JSR HFP.YV 




380 mnmEixxxMixxiiinacpmcrixis 


322 


JSR PLUSES 




381 I Oi EST LA TORTIEI SOXJ^fl 3! 


323 


JSR [m.m 




382 xinnixxxicitxxxxixxxxnGuaciiiiCKix 


334 


LDA ^0 




383 ; 




325 


STA BUT^Xtl 




381 Gu; 




326 


LDA AOJl 




385 


iBR tBl 


327 


STA BUT.X 




336 


Lffi\ ^,X+l 


328 


RTS 




3S7 


LDY aiT.X 


329 J 






388 


JSR DfT.ESa 


330 MFP.TFl 


LDX iFl 




m 


JSR miME 


331 


LDY /TFl 




m 


TftX 


332 


^ JfP.XY 




3?1 


J3R CHARi^ ;X TORTIE 


333 f 


■ 




392 


LDA ItOd 


331 ffPtTFZ 


LDX tTF2 




393 


LDY aiT.Y 


335 


IDY /TF2 . 




391 


JSR INTtREEL 


33A 






395 


JSR mm. 


337 ; 






394 


JSR UARIABI.E 


3^ TFUffP 


*TF1 




397 


TAX 


339 


UiY /TFl 




398 


JSR ZWm. JY TQRTI£ 



Pom'<; n" 6 



47 



399 


LDA 


AfiGLE+i 


*T JO nil Irll « 






Ann 


1 

LUT 






1 DA 
L_un 




Jim 
101 


WD 

JSR 


Tirr LI 




u 1 ri 




41)1 


CD 


VJLWjULh 


1^1 


STA 


AHQE+l 




%an 


1 lADTAOl C 


142 


STA 

win 


liAJ 1 t/\ • L 


101 


TAX 








1 1 t4r 

1 . 17U 


105 


JSR 


CHflRGE fWGLE 


^aT 




DU 1 «A 


106 


LOfl 


t*lB JACCEPIE T^lSLEffiJX 




LUH 


»: 70 


107 


STA 


fil 


4jU 


01 h 


ran V 

DUi f T 


m 


M> 


SORTIE 








109 ; 






"00 






110 VARI^aE: LDA 


A^^lt turn IPC TADl rAI [V 


lay 


KB 


lr(Hr(OI 


111 


STA 


»i1 


1/ u 1 hHnbA 


1 FU 
LUh 


ran Vii 


112 


JSR 




1/ 1 


Lilt 


IM IT Y 


113 


BIT 


>U 




JOK 


TklT £Mrn 


111 


m 


U MOD 


471 


1 nv 






BIT 




474 


1 nv 

LI/ 1 


/Dt ♦A 


116 


m 


11 MdD 






ITr tA 1 


117 


m 






PTC 




118 V.MRR 




mrm 


477 ; 






119 } 












420 UTKixximiiixixitiixifnximniicxx 


470 
7/7 


1 nv 


CM IT V 

all »T 


121 x LE\e OU BAISSERJ *L *K i 


70 g 


KB 


TUT CPFI 






1 ny 


IRT Y 
YD 1 f 1 


123 I 






437 




/Dl t T 


121 lever; 






491 




nrr tAi 


125 


JSR 


iBi 


4fl4 

707 


l\l 




126 L.LBM 




*m 


4{]*v ' 
7tKJ f 






127 


STfl 


FHS€ 


4fU TRifKi 
7aC I IvliTDfl 


1 f\i 




429 


M> 


SORTIE 








429 J 






TOO 




irti tnUX 


130 SMS^t 






707 


1 




431 


JSR 


tei 


77« 


L4J1 


/HmL 


132 


^R 


BfTIERl 


401 


JoK 


MPO VV 


133 


LOX 


flCUt 


77i 






434 


CPX 


ts 


40'5 *■ 






135 


0CC 




4Q4 Tntarr* 
171 1 utaj 1 1 






136 


JKP 


ILLOIR 


49"; 


1 ny 

LUA 


Ml!4 

tPu7 


437 B.PLl#E 


STX 


TCffiCaOR 


77« l> 




fit y Y 


138 


lBR 


HCELOR 


497 


Om 


TT V K 
1 1 ^ArA 


13? 


JSR 


PLQTO 


4QA 


1 m 
LLfn 


RT V.V 


m 


LDA 


ftl 


404 
777 




TT Y V 
1 1 1 1 1 A 


HI 


STA 


PLlfE 


QUI! 


UtA 




112 


JfiP 


SORTIE 






,"J 


113 ; 






mi's 


1 nv 


HIT ¥ 


444 xmixxxxxixxmimxmixm 




31 A 




115 * CENTRER lil TCRTUE; SC i 


-Ju7 


1 nv 

Lu 1 


Rirr.y+1 






QTV 


I Lin lUtt A^l 


447 ; 






□UO 




fBIT V 


na cehtrer: 






vlU/ 


oi n 


TrffiTIF.Y 


119 


^R tBl 




PTC 




15fl 


JSR HHJEU 


Ju7 ^ 






151 


LDA PHfl€ 


SI fl PI flTflt 






152 


BNE CJRACER 




1 nv 

LUA 


1 UT\LULUfl 


153 


JSR TfMrr 


•JlZ 




ufYi ri? 


151 


JfP ^TIE 




LUX 


TY^Ti cr V 
IlliiUttX 


155 C. TRACER JSR PLOXmiT 


514 


LDY 


TQRTUE.X+1 


156 


aiTIE 


515 


m 


TtRTUEJ 


157 ; 






516 


JMP 


fPLOT 



ICENTRE E(MJ 



EBUTX TT.X 



IBUTY -> TT.Y 



}AfCLE->A(L 



fTORT\EXY=HiTXY 



imm Bl TORTUEXY 



Pom's 



48 



517 ; 






BIT $C057 


513 FiQTOBUTt 


577 


BIT tCBSQ 


519 


JSR PLOTO tLIEtE TESTUE-BUT 


573 


SORTIE 


520 


JSR TffiUT 


579 Vt.m 


XLLUffi 


521 


m 8UT.X+1 


580 ; 




522 


TAY 


581 IXXXXXXXIKXIJIEIXJIXXIIXXIXXXJ:! 


523 


LDA aiTfX 


532 X RiDEAUt C IfMSEtC=8 s 








525 f 




5S1 f 




52^ xxxxnxKntixixxixxxxixixixixi 






527 I ECfiIRE SU? LA PAGE! «£l/2 1 


en/ 

586 


i£R {81 


528 xixr(iixxii(ixin:xixmxiiitixi 


387 


JSR ENTIERl 


529 ; 




583 


Ufl ADJl 


530 ECRI?S1 




5S9 




531 


•JSR *B1 


5?l 




532 


JSR ENTIERl 


5?1 


BEQ RffCGAT 


533 


m flCUl 


592 


J<P TlLEJfR 


ai 


Of m 


5?3 r 




535 


m. E.PAGE2 


594 R.tSLOR 


TAX 


536 


m «2D 


995 


LDA KASCOLCi^tX 


537 


3TA PAGHGR 


996 


JSR K-JGfS) 


S38 


jj^ mm 


397 


iM= SORTIE 


539 E.PftGE2 


CHP «2 


59S f 




516 


Bf£ E»ERH 


59? RthEGAT 


LDA P^iGHGR 


541 


LDA «4a 


6011 


STA *1B 


512 


STA P(mR 


611 


LDY tin 


513 


sfHP SORTIE 


602 


STY ilA 


514 £.m 


M ILLERR 


603 n 


LDA mA>J 


515 f 




61^ 


EOR «FF 


51^ iftizxxxiiixxiixxxxmxitixximix] 


m 


STft {tW),Y 


547 X HEWRER LA PAGE HCR SM i 








617 


Eft U 


5^9 f 






m: tlB 


550 HOWTRERt 






LDA $1B 


351 


^SR tBl 


611 


m «1F 


S2 


iSR ENTIERl 


611 


B)£ <1 


S3 


LM ACUl 


612 


JfP SORTIE 


351 


ff.l23 


613 ; 




555 


BIT «:o5i 




55i 


BIT JC05i IPAGE TEXTE 


615 « IfflTIALISATIOH: £11^3 i 


557 


J«P SORHE 


616 tmxmxnimumm.tnnM 


558 H*123 


W «1 


617 ; 




559 


BNE H,23 


£18 MTt 




561 


BIT tca53 JN=1 


619 


^ ftlLIBJ 


561 


BIT tC051 {HGRl fOXTE 


620 


J31 T(MT 


562 


BIT 10057 


421 


JSR tBl 


563 


BIT $ca50 


m 


JSe EflTIERl 


561 


JfP SORTIE 


m 


LDA ACUl 


565 t1.23 


m> #t2 


£24 


m> m 


566 




£29 


EfE 1,23 


567 


BIT *C052 }})=2 


626 


m «2fl 1 


563 


BH *C0^ ;HGR2 TOTAL 


627 


STA PACHGR 


569 


BIT *C057' 


628 


JSR KiGNDO 


570 


BIT $COSfl 


429 


BIT ICD53 


571 


M aSTIE 


630 


err tcesi 


572 H»3 




631 I^SORTIE BIT ICOSZ 


573 


m. fl.ERR 


632 


BIT iciisa 


574 


BIT $C052 fN=3 


633 


JKP L,L£gER 


575 


en ico5^ imi mpt 


634 f 





tPftOE 1 raxTE 



Pom's n° 6 



49 



635 I.Z3 


CHP 


#*2 








w mm 


636 


BiC 


1*3 




AST 


t 
t 




637 


UM 




tPfiGE 2 TQThLE 






638 


STA 


IP, x nr inn 






I SUITE DE L'DiSTRUCTIOH S 1 


639 


JSR 










610 


en 


*C652 




657 






611 


en 








SORTIEt 




612 


M> 


IhSSTIE 




6aT 




^ w 


613 J 








660 




S.SUITE 


611 ri3 


CnP 


♦$3 




Ait 




RT3 flNSTRUCTIffl 


615 


S€ 








S.SUITE 


IDA IT 


616 


LDA 




fpffit L TOTALE 


Qta 






617 


STA 


PAGHGR 




ooi 




M' Tm 


6^ 


uER 








1 




619 


BIT 






666 


XZJtllXXMXXXJUIiWIIXXIIXKKinLXXXin^ 


651 


SIT 


*CS51 




667 


1 

1 




65i 




ItStKTIE 




6^8 




m 



TORTUE & : recapitulation 



9150- 
9!5fl- 
916*- 
916S- 
9170- 
9178- 
9180- 
TM- 
9190- 

aiflo- 

91B0- 
r.m- 

gice- 

9!D0- 
91E0- 

9:es- 
93FO- 
91Ffl- 
9200- 
9208- 
9210- 
921B' 

9228- 
9230- 
^238- 
9240- 

9250- 
9258- 
9i60- 
32SB- 
9270- 
9278- 
92fi0- 
■iM- 
9290- 
9298- 
'im- 
9Ka- 
930- 
92BS- 



R9 6D 
F7 K 
50 65 
SC D6 
C5 5fl 
^1 DO 
ao 03 
03 4C 
4C 7i 
9D 9j 

93 C9 
C9 43 
45 » 
DO 93 
03 iC 

05 r^t 

34 20 
20 05 
ni EO 
4S 94 
3B FO 
El (15 
FO 20 

06 DO 
95 20 
fll EO 
£0 91 
15 38 
ffi FE 

92 (e 

FD 69 
01 ffi 
92 20 
Bl 00 
20 67 
FD 65 

Ro as 

94 4C 

C5 92 

35 OF 
00 00 
00 00 

00 00 



BD fb 03 
A9 iC 80 
73 fl9 51 
4C 3C 04 
DO 03 4C 
03 iC (A 
4C 6F 92 
97 92 C3 
93 C3 4k 
C9 42 DO 
4C D0 03 
00 01 it 
03 4C fE 

!5 95 
55 4C C9 

a: fo 14 

m 01 Fll 

K AI S£ 
BE ffi £9 
£1 M 00 
CO 80 30 
20 £E D€ 
14 20 hi 
flC eS FE 
30 92 20 

U20 ee 

97 94 4C 
la 60 05 
4C 99 cl 
flS FB E9 
t9 01 65 
FE 30 01 
S5 FC 
FE 4C 51 
K 93 C 
F0 20 C9 
DO 20 CC 
ftl ® FD 
FE 20 3D 
3F K 4C 
4C S 95 
00 00 00 
00 00 00 
00 00 OO 
Ofl (Kl 00 



CB 91 SD 
F5 03 fl9 
eS 74 10 
DC 01 60 
CE 9t D9 
92 C9 54 
C9 53 DO 
56 DO 03 
DO 03 4C 
03 4C F4 
4C Efl 95 
13 96 C9 
94 C9 U) 
CS 52 
49 DO 03 
DC 20 Bl 
20 05 El 
51 BO Si 
F9 20 3E 
2C FO 12 
[]0i3 % 
86 FF 20 
FO 16 a 
DD 20 0C 
fll 85 
X 94 ftS 
94 4C 9F 
9F 95 flS 
AS flO 4C 
fi5 FE JO 
68 S5 FD 
FE 4C 3D 

60 la fla 

B5 FE 69 
92 20 C5 
9F 93 20 
3B FO IC 
£i IB f6 
FE 65 
92 20 5C 
C9 DE 20 
7B 0£ Ffi 
00 00 00 
00 00 00 
00 00 00 
00 00 00 



92DO- 00 00 
■feC§- 92 20 
9?m- M 7F 
■3218 00 20 
92E0- 57 93 
92EB- 20 82 

92F8- 6C 93 
3300- 20 S 
•530S- E3 E9 
9310- 92 20 
9316- OC El 
9320- 65 ai 
132fl- fW 92 
933D- 20 CI 
9338- 2B a 
9340- flS fiO 

rm- bo H2 

^ffifh fi? ft7 
■BSS- flZ flO 
9360- fW 32 
9368- 92 4C 
S370- 4C Q 
937B- 93 C 
S3B0- FO 12 
■5388- BO 10 
9390- 34 SC 
9398- 90 Efl 
SSftO- Ffl 
33M- D7 53 
93HI- m rB 
93BS- 20 D7 
50- FE M 
DE 20 
93D0- m 00 
•jm- M 85 
93E0- 30 OS 
93Efl- 76 W) 
93F0- 06 4£ 
93F8- Ffl E6 
94O0- 4E 39 
9408- 20 89 
9410- 9F 95 
5418- flS 06 
9420- 9F 95 
0428- m « 
9430- fl9 flC 



00 00 00 

F9 M 89 
E5 20 49 
67 20 
20 Efl EF 
E9 20 55 
53 EB 20 
20 42 E9 
93 fl9 St 
20 M £7 
2B m 20 
ffi » i^O 
05 fl! 85 
20 F9 afi 
E7 fC Bfe 
2a flO e7 
65 Ffl ffi 
ffi 00 92 
SO 92 4C 
32 iC F9 
4C F9 Efl 
E3 E9 
E9 20 Bt 
9f IS 83 
BO 16JB 
OS 06 GO 
97 94 83 
K 93 El 
04 F9 20 
M 20 2B 
20 F2 E2 

93 flfl 20 
FD 20 F2 
D7 33 flPi 
85 14 iC 
14 20 E3 
24 12 30 
20 B! 00 
9F 95 20 
% 81 EO 
EI 86 FC 

94 m 01 
20 Dl 00 
DO 06 2t) 
20 57 94 
85 FD 85 
65 F9 ft9 



fl9 DO W 
9B flO 92 
93 20 Bl 
50 93 20 
20 6C 93 
93 20 49 
Fl EF 20 
20 30 93 
flO 32 20 

02 BE flO 
fiO E7 20 
C4 R9 CB 
FB (H flC 
20 65 93 
flO 92 20 
2(1 flC Ft 
fll ffi F9 
4C 2B EB 
2S FD IS 
Efl m R7 
ffl 82 AO 
fl7 fl012 

00 20 7C 
Ffl C9 01 
F8C9 CO 

03 4C 68 
F9 C9 IS 
20 fll 00 
F2 K 20 
a fi9 00 
20 BE DE 
2S EB A5 
E2 20 SE 
20 2B a 
9F95fS 
Df 24 11 

01 60 4C 
ffl 00 85 
St 00 20 
OB 90 03 
20 FO F& 
85 06 4C 
20 26 94 
6S 94 4C 
4£ 3F 95 
FE as Ffi 
60 65 FB 



9438- 


20 


5C 


94 


"id 4D 


94 


(B 


FA 


9440- 


M 


F9 


20 


F2 £2 


ffi 


B6 


f» 


9448- 


92 


20 


2B 


ES 60 


ft9 


00 


A4 


S450- 


FB 


20 


F2 


E2 K 


ee 


no 


92 


9458- 


20 


2B 


B 


60 fiS 


FE 


A4 


FB 


9460- 


20 


F2 


E2 


82 CO 


m 


92 


20 


9466- 


2B 


EB 


60 


ffi 04 


BD 


B6 


92 


9470- 


90 


flC 


K 


SD BB 


92 


9D 


Bl 


9476- 


92 


CA 


It 


Fi flfi 


F5 


66 


07 


9480- 


M 


Ffl 


84 


08 


FB 


85 


09 


¥ifla- 


60 




FC 


20 FO 


F6 


06 


07 


9490- 


A4 


OB 


ft5 


09 4C 


57 


F4 


20 


949B- 


89 


% 


20 


bt 94 


R6 


FH 


m 


9400- 


fB 


=9 


4C 


3fl F5 


20 


Bl 


00 


94flB- 


20 


FB 


£6 


85 fll 


C9 


01 


DO 


34KI- 


0? 


fH 


20 


85 E6 


4C 


9F 


95 


9488- 


C9 


0? 




07 il9 


40 


85 


F& 


94C0- 


4C 


9F 


95 


4C 99 


El 


20 


SI 


3ftCB- 


00 


20 


fS 


E6 85 


ftl 


DO 


09 


94D0- 


2C 


54 


CO 


2C 51 


CO 


4C 


9F 


%Dfi- 


95 


C9 


0! 


DO OF 


2C 


53 


CO 


mo- 


2C 


54 


CO 


2C 57 


CO 


2C 


50 


MB- 


CO 


4C 


¥ 


95 C3 


02 


DO 


Or 


94F0- 


2C 


52 


CO 


X 55 


CO 


2C 


57 


94Fe- 


M 


2C 


50 


CO 4C 


9F 


95 


a 


9500- 


03 


DO 


OF 


2C 52 


CO 


ZC 


St 


9508- 


CO 


2C 


57 


CO 2C 


50 


CO 


4C 


KiO- 


9F 


95 


4C 


99 Zi 


20 


Bl 


00 


9518- 


20 


F6 


E6 


R5 M 


C9 


08 




95?0- 


(H 


FO 


OD 


4C 99 


E! 




m 


9526- 


F6 


F6 


20 


Fi F3 


4C 


9F 


95 


9530- 


B5 


E6 


85 


IB AO 


00 


B4 


ID 


«3B- 


Bl 


IH 


49 


FF 91 


lA 


C8 


DO 


9540- 


F7 


EE 


IB 


fiS IB 


29 


IF 


DO 


9548- 


£F 


4C 


^ 


95 20 


23 


94 


20 


9S0- 


EB 


34 


20 


Bl 00 


20 


F8 


E£ 


955S- 


fiS 


Al 


C3 


01 DO 


16 


Rg 


20 


9560- 


85 


E6 


20 


F2 F3 


2C 


53 


CO 


9568- 


2C 


54 


CO 


2C 57 


CO 


2C 


50 


9570- 


CO 


4C 


ED 


93 C9 


02 


DO 


10 


9578- 


S9 


40 


85 


E6 20 


F2 


F3 


2C 


9580- 


52 


CO 


2C 


S CO 


C 


BB 


95 


958B- 


C9 


03 


DO 


10 n9 


20 


85 


E6 


9590- 


20 


F2 


F3 


2C 52 


EO 


2C 


5^ 


9598- 


CO 


4C 


6B 


95 4C 


99 


El 


20 


9SA0- 


87 


00 


DO 


01 60 


119 


38 


30 


95(fr 


03 


DE 


4C 


60 91 


00 







50 



Le loto, c'est facile 

Philippe Fabai 



• • « 



Cr prngratnrne est destin^ a rejouir les 
amateurs de loto el d'ciSiieiiiblKUi, 4 
enrichir les premiers.. . Tout H'ahord . lis 
sont surs d'obtenir dcs tirages qui ne se 
repeteront jamais, tn effet. la fonction 
RND a le defaut de donner la meme 
serie de nombres chaque tois que Ton 
dlume Fordinateui, L'astuce que j'uti- 
lise id permat de pallier ce defaut, Le 
sous programme gerant un nombre 
aleatoire peut etre facilement adapte a 
d'autrca programmes. 

Les uariables K. Kl, Al ed AJ sont utili- 
b&s dans les programmes en BASIC et 
en asscmbleur. Pour e^iiter toute confu- 
sion, il taut savoir que ces variables 



representent des nombres dans la pro- 
yrtuiime en BASIC et des adresses 
dan^; la routine en assembleur. 

Void Iks fonction s en assemble ur de 
ce5 variables : 



Al 



Al 



adresse de depart d'une serie de 
numeros. 

Qu debut du programme, con- 
tient l adresse de depart d une 
serie 

au cours du programme, 
ladresse courante du numero 
calcutS 

a la fin, I'adresse de depart de la 
prochalne s^rie. 



AJ ; conticnt successivement lea 
adresses des numeros dune 
s^rie pour la verification et le 
dassement. 

N.D.L.R- 

A chaque appel de nombre aleatoire, 
on rcgardc un octet d'entres/sortic 
($C051, paqe qraphique). puis on fait 
autant d'appels a RND que la waieur de 
cet octet. 

Cg RND est particulierement interes- 
sant dans les programmes dans les- 
quek on lui fait appel avant que le cla- 
vier ne sott utilise. 



C'CST MA DBR»Mft(*E 






















.4068- 


69 


05 


90 


02 


E6 


19 


85 


18 
















4070- 
4078- 


C6 
A5 


FEi 
EE 


DD 

38 


98 
£9 


A 9 
01 


00 
85 


35 
FB 


FD 
18 




















4080- 


A5 


07 


85 


19 


85 


IB 


A5 


06 


^0 0- 


A5 


18 


85 


06 


AS 


19 


85 


07 


4088- 


85 


18 


69 


05 


90 


02 


E6 


IB 


4S08- 


A5 


EE! 


65 


FB 


AD 


51 


CO 


85 


4090- 


85 


lA 


AS 


lA 


A 4 


IB 


20 


F9 




F9 


20 


AE 


EF 


C6 


F9 


DO 


F9 


409B~ 


EA 


A5 


18 


A4 


19 


20 


A7 


E7 


4Si.8~ 


A5 


EC 


95 


FC 


A5 


06 


85 


lA 


40AO- 


20 


92 


EB 


10 


03 


4C 


EtD 


40 




A5 


07 


85 


IE 


A5 


08 


A4 


09 


40A8- 


AO 


04 


Bl 


lA 


91 


18 


88 


10 


^02G- 


20 


7r 


E9 


20 


23 


EC 


AS 


FE 


4eB0- 


F9 


20 


w 3 


EB 


A6 


lA 


A4 


IB 


4030- 


A4 


FF 


20 


BE 


£7 


A6 


19 


A4 


40B8-" 


20 


2B 


EE: 


E6 


FD 


C6 


FB 


FO 




19 


20 


ZB 


EE 


C6 


FC 


A5 


FC 


40C0- 


14 


18 


A5 


IB 


85 


19 


A5 


lA 


4tl'<IO- 


C5 


FB 


FO 


21 


AS 


18 


A4 


19 


40C8- 


05 


18 


69 


OS 


90 


02 


E6 


IB 




20 


F9 


EA 


A5 


lA 


A4 


IB 


20 


4flD0- 


85 


lA 


4C 


92 


40 


A5 


FD 


C9 


-1030- 


A7 


E7 


20 


82 


EEi 


FO 




18 


4GD8~ 


00 


DO 


99 


C6 


FA 


FO 


QE 


18 




AS 


lA 


69 


05 


90 


02 


E6 


IE! 


40EO- 


AS 


19 


69 


OA 


90 


02 


E6 


19 


4060- 


85 


lA 


4C 


3C 


40 


18 


A5 


18 


48E8- 


85 


18 


4C 


00 


40 


60 
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LOTO : programme BASIC 



3LI5T 

1 PRINT CHR* <4) "BLOfiDLOTD.OBJO" 
5 TEXT f HOME i HTOB 13: INVERSE : PRIN 
T "JOUONS fiU LDTD" : NDRmPlL : VTHB 
6s IWPUT "COMBTFN DF NGMBRFS (fllJ 
MDINS 6) ? ";CH! POKE 235, Chi CL 
= CH + l; POKE 236, CL! REM 

235 <0U *EB EN HEXOJ" CONTIEWT L 
B V/fiLEUR CH 
10 VTfiB 11: INPUT "NOMBRE DE SERIES (flU 
MQINB UNE) ? ";SS POKE 250, Ss RE 
W nET LE NDMBRE DE SERIES 

fi TIRER EN 250 (OU SFO EN HEXR) 
IS U = S CHi DIM Fl(U): REM TABLEAU 

CONTENfiNT LES NUMEROS 
20 K = 49; POKE S, PEEK (131): POKE S, P 
EtK (132): REM LES MEMO IRES 

EN PftGE ZERO CDNTIENNENT RESPECT 



IVEMENT L'fiDRESSE BHSSE ET HflUTE 
DE 49 

25 Kl = 1! POKE 254, PEEK (131): POKE 25 
5, PEEK (132): REM DE l*lEnE PUU 
R 1, 254.=«FE ET >5S=*FF £N HEXfl 

30 >! ^ fld): POKE 24, PEEK (131): POKE 2 
5, PEEK 4132)! REM DONNE L'fiDR 
ESSE DE DEPORT DU 1 NUMERQ DE LO 
1 SERIE 

35 CALL 16364: REM ftPPELLE LE PROG 

RfiMME EN fiSSEMBLEUR EN 1&3B4 OU * 
4000 EN HEXR 
REM QFFI CHOSE 



49 
50 



HOME 



55 IF 



60 



I 

T 

NEXT 



s FOR I = 1 TO U; PRINT 3PC ( 3 

LEN ( STR* (fld) ) ) ) ;FlU> ; 
/ CH = INT (I / CH) THEN PRIN 
; REM SflUTE UNE LIBNE 



LOTO en assembleur DOS TOOL KIT 



F5 



X 


X 




JDEBUT DU PROGR^frlfC 




1 LOTO 




I 










X 


X 






ORG 


1411911 




I JJIN 8Z 


X 




LDA 


AI 




X 


X 






STA 


ftl 








LDA 


AI+l 






X 






STA 






x:Kixmxiixxjmxi(xi(X](xxxixxxxxx 




LDA 


ghiffre:nohh€ oe chiffres a Lwm 


t 








STA 


c 


fCOWTEUR DE LA SEME 












* 
» 






JBOLtLE GEFWff IJ) 




SB 


EQU 


*E7A7 


;«o^ aleatoire 




ALfA 


EQU 


tCD51 










m 


EQIJ 




PART2 


LDA 






imp 


EQU 


$EB2D 




STA 


CPT 


iOfTRE ET 255 




EQU 


iEAF9 


PART3 




Riff) 


immm sno dans fac 


PHWA 


EQU 


$EB53 




DEC 


CPT 






EQU 


$E9.7F 




^£ 


?m2 




HIT 


EQU 


tEC23 




LBA 






SIffl 


EQIJ 


l-EBSZ 




STA 


CI 




ADD 


EQU 


$E7BE 




LDA 


M 






EQU 


U 




STA 


AJ 




K 


EQU 


$8 




LDA 


AH-J 




AI 


EQU 


tl8 




STA 


AJ+1 




AJ 


EQU 


tlA 










CKHTRE EQU 


$EE 


fCACOJL DU NCffiii€ 




□trri 


EQU 


*EC 










CPT 


EQU 


tF9 




LDA 


t; 


K+1=AnRFSSt! OF 49 


6UL 


EQU 






LDY 


K+l 




C 


EQU 






JSR 


HULF' 


?FAC=FACiARG 


CI 


m 


tFC 




M 


IKT 


;RB0 EiffIB? FAC 


aAG 


EQU 






LDh 


Kl 


{Kl ET Kl+l=AOf€SSE DE 1 


Kl 


EQU 


*FE 




LOY 


Kl+1 


n -> ARC PAR AM) 
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J9i ADD lELIHIfC 




eg; 


TRIl 






LDX AI 




IMC 


AJ+1 






LDY AI+1 




STA 








JSP MOW ;fac -> AI 




LDA 


fy 


iAORESS£ ou t mm 


PARTS 


KC CI 




LDY 


AJ+i 


JDfWS AJ 




m CI 




JSfi 




;aj -> FAC 




OP C tSI C=C1 EVHE lERinCAHCBI 




LDA 


AI 


lAUfiEsst OU 1 mm 




m PART7 




LDY 


rtl+I 


SDWfi AI 


; 






JSR 


sue 


JFAC=ARC-FiiC 




3S EXISTE-T-IL OEJfl ? 






SIGN 




* 






BPU 


ECH 


jRESU-TAT posmr -> mm^ 




U3A AI 




M> 


ADR 






LDV AI+1 


t 










JSR mm 


JEFFECTIE LTDWffiE 






m AJ 


t 










LDY AJ+l 


ECU 


LDY 


»t4 


I^fiieS D 'OCTETS POtJR FffMT F10TT*WT 




JSR sue ;FAC=ARG-FftC 


ECHl 


LM 


(AJ),r 






JSR SIBI ISIfflE UAN3 REGISTRt A 




STA 


(AI>,Y 


;aj -> AI 




PART3 fRESULTAT fULt ON RECOWEMK 




DEY 






* 






EPL 


ECHl 


JYOB, EOWiGE CBNTIf^ 




L'ADRHSSF DF M 




JSR 


ffiVFA 


;ARG -> FAC 


t 






LDX 


AJ 






CLC 




LDY 


AJ+1 






IDA M 






HOW 


fFAC -> AJ 




ADC 4*5 






FLAG 


iECHfflCE EFFETUE -> ORAFEAU A 1 




ECC PARTi 












INC flJtl 


. jCffl^CUL L'AORESSe 




PART6 


STA AJ 












W PARTS 


ADR 


DEC 


C 




t 








ae 


JCQffTEUR A ZERO 


mcuL 


DE L'fCfiESS K fli 














;CM.CIL LES ACtSStS 






CLC 


1- 
t 










LDA AI 




CLC 












LDA 


AJ+1 






BCC PfflT8 




STA 


AIH 






INC ftI+1 




LQA 


AJ 




PWT9 


STA AT 




STA 


AI 






DEC C 




^ 


«5 










BCC 


ADftl 










INC 


AJ+1 




icLAsseen oes niimeros 


mi 


STA 


AJ 










JP 


C(M» 




TRI 


m m 




LDA 


FLAG 






STA aAG JDRAPEflL) A ZERO 




CHP 


tto 


;eclw«i ? 




UM CHIFFRE 




Bi€ 


TRI 


join, !O0UR A TRI 




SEC 














fLE3 NUHEROS SQffT TIRES 




STA C 
















KC 


aJL 


; RE3TE-IL EfCQI€ DES SERIES? 


mCUL LES flDRESSS 




BEQ 


m 


\ TERfffiE 








ac 








CLC 




LDA 


AI 






LDA Al+l 




ADC 


tfOA 






STA AI+l 




BCC 


ADR2 






STA AJ+i 




W. 


AI+1 






IDA AI 


ADR2 


STA 


AI 






STA AI 




J?P 


PARTI 






ADC its 


FIN 


RTS 
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IIMDIVIDUEI- 

Vous ytt'ouverez: 

Jdctualite et les tendances de rinformotique individuelle 
dncs d'essais des principaux matertels • des panoramas 
tests comparatifs • le point des grandes monifestnfions 
Internationales • des articles d'initiation • des syn-theses 
• des programmes • des inferviews "exemplaires" 
• des conseils • des idees • des astuces 

DINATEUR fNDtVIDUEL, chez votre morchond de joumaux 



Tableaux de taille declaree en Pascal 

Regis Lardennois 



Le programme d-apres montre com- 
ment on peut creer des tableaux de 
taille declaree a I'execution d"un pro- 
gramme en Pascal- Ce tableau est C[66 
en variable dynamique. 

Le pTogramine dc demonstration qui 



suit permet en outre I'affichage des 
valeurs des pomtetirs utilises. 

Remarque : le compilateur Pascal 
effectue las lasts de debordement 
d'Indice de tableau, non par rapport 3 
la longueur reelle du tableau, mais par 



rapport a la longueur declaree dans le 
type (5000 dans notre cas). La lon- 
gueui reella ne pcut par conccquent 
pas depasser la longueur maximale 
declaree. 



FROGRAH TfiELEAUXVARIABLES; 

CONST MAX I fit: ^ 50Q0; 

MINIMUM - ItO MiniMUM de MSMaire necesssire pour le deraulenent 

■Z nor-nal du proqrsMMe en fiats de 16 bits Mur APPLE! 11 
^: Ki-iviron GO en APPLE II et l^D en APPLE /// 



TYPE 

ARTICLE. 



tabli;:au 



KLCUKD NUMERO: INTEGER f 

NOM JSTFlINGt 93 J 

end; 

ARRAYCO , .HAXTABjl OF ARTICLE} 



€ variable occupant IQ ortRt^; 

C c'est a dire 5 nots de 16 |jil& 



PTINT - RECORD 

CASE EDQLEAN 

TRUE : 
false; 

end; 



OF 

( P : -^INTEGER ) ; 
(I ; INTEGER ) if 



type varisnt pernettant d'utiliser' 
les verisbles au choi>; coMWe srtant". 
du type 'pointeur desi^ngrit un " 
nDMbre entier' ou du t^pe 'ncmbre I 
entier' iausnl alor^ la vsleur du 'j 
pointeur c'est a dire Line adresse J 
MSMoire > 

1 'utilisation de varsbles de type J 
var^isnt s^utorjsQ 1 ' a ff i ch^jge 
direct des valeurs; des pointeur-s J 



PTAR'T = RECORD 

CASE BOOLEAN OF 

TRI.IF i f pi'^arttcle:! ; 
false: (I:intege:r )? 

end; 



ideM E3uf n.uG Is type pointeijr 
designs non un ontier Msisi une 
uariahlo de type article 



PTTAE: = RECORD 

CASE EODLEAN OF 

TRUE : iPt^TABLEAU J f 
FALSE t (IJINTEGER j; 

ENDJ 



le type pointeur desi'^ne c e 1 1 o 
fois-ci une variable de type 
tableau d'articles 



UAR ART 
PART 



t article: J 

: PTART t 



TABl, 
TABi! 



i PTTAB 



DEPART, 

SOHMET 
CL 

HAXARTl, 



PTIf^T 
CHAR 



< definit la position de la pile su debut du pragramnel 

; C dcfiriit l3 poiitiDFi instaritance du ha'-'t de la pile? > 
! 

■Z nowbre waMiMsl d' articles du tableau 1 > 



MAXART2 i integer;;: noMbre M3>;iM3l d'articles du tableau 2 
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J : integer; 

MEMAy J REAL? 



pKUCtUURE. MLNU; 

BEGIN PACE< OUTPUT) 



ENOJ 



c APPLE II y 

WRITL- (CHRC2S) ) ; C AfFLE /// > 

writelnk 'prdcramme de demonstratiow of creation ' 
■'de: tableaux de dimension variable'); 

hritelmj 

memav:=2.0 x (mehavail-minihuh) j 

WRITELM( ' Menoi re> di <^poriible ' , MEMAMAIL , ' MOts de 
TRUNC ( MEMAV/CSIZEDFC ARTICLE) > articles ■' ) } 

writeln; 

NRITELNC 'dinensiui i Udbledu 1 = ' , C MAXART i i 1 ) , 
dinension ishlesu 2 = ' , C MAXART2* 1 ) ) ? 

WRITELN? 

VIRITFl Nf valeurs pointeuri; en acteis') 
WRITELN( 



16 bits spit 



valeurs pointeuri; en acteis' 
DEPART PILE= ' , DEPART , I : 5 , ' 
' TABLEAU 1=' , rAE-il ,i:5, ' 



SOMMET PILE= ',SOMMET,I! 
TABLEAU 2=S TAB2*Ii5); 



URITELNI 
WRITELN< '1 
HRITELN< '2 
WRITELN < '3 
WRITELN i '1 
WRITELN ( '5 
Wf^ITELNC --6 
WRITELNC'Z 



DESTRUEllUN 

CREATION 

INITIALISAl 

VISUALISAT 

CREATION 

INITIALISAT 

VISUALISAf 



rA&LEAUX' ) ; 
TABLEAU 1'); 
lABLEAU 1'); 
TAPLEAU 1'); 
1 AbiLEAU Z' ) ; 
TABLEAU 2' ) ; 
TA&LEAU 2' ) ; 



WRITELN ( 
READ (CD 
WRITELN! 



'esc QUITTER' ) f 



PROCEDUF<E destruction; 



destruction des variables dynaTniqueis crees 
C depuis 1 ' instruction MARK ( DEPART . P ) 



BEGIN RELEASE(DEPARTtP) ; 

suMME r ip;^: DEPART* p; 

PART , 1 1 -DEPART . I f TA&l . 1 : ^DEPART . I ; T AB2 . 1 1 ^DEPART . T J 
MAXAKl 1J = fMftXART2: = J 

t.ND; 



PROCEDURE GREAT i; 

EECIN WRITE ( 'nciMbre d ' ' .srti c-l pq; Misx 
flAXARTl ;=f1AXARTl-i; 



) ;readln<eiaxarti) ; 

C perce que 1 ' f.ndice du iablcai,' 
C coMMence s 



m 



end; 



IF MAXARTKO THEN MAXARTt:=ft; 

tlARKUABitPJ ; 

FOR JJ~0 TO MAXARTl DO 

NEW (PART *P) ; C on cres HAXARTi fois une variable 
■:' rie type ARTICLE ce qui cree la 
■C pliice nenoire pour le tsbleau 

MARK ( SOMMET. P) i 



PROCEDURE CREAT2J 

tiEGIN WRITE < 'nonbrfc? d''drticles nax ? ')} 
READLNCMAXART2) ^ 

riAXAKT2r^MAXARTZ-i; C psrce que I'indice du tableai- 

L conMence 3 D 

IF MAXART2-::0 THEN HAXART2: = 0| 

fiARK(TAE:2 .P) t 

FOR Jt-0 TD MAXART2 DO 
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NEW < PART, P) ; 



C on cree MAXART2 Tois une vdriiiL'lt; 
L de type ARTICLE ce nui cree la 
C place ne^ioire pour le tablesij 



PROCEDURE INITlf 

BEGIN FOR JJ=0 T(] tlAXAftTl DD 

BEGIN TAEl ,P^tJ3 .MUMERO;-j; 

TAEa 4 P'^C Jl . NOM ; = 'TftE:LEAU 1'; 

end; 

end; 

proce:dure initz; 

BEGIN FOR J:-0 TO MAXART2 DO 

BEGIN TABZ.P-^tJ3 .NUMERD: = J; 

TABZ.P^ tJn .MOM : = 'TAE:LEAU 2' i 

END? 

end; 

PRDCEDURE UlSlltJ 

BEGIN FOR j;-0 TO HAXARTl DO 

WITH TABl.P^CJI on WRITEL N(NllMERn:5, ' SNOHIJ 

read (keyboard, cd j 

end; 



PROCEDURE yisuz; 

BEGIN FOR J?=0 TO MAXART2 DO 



...y. 



logmo 



Une informatlque de gestion adaptee qux besoins des gesttonnoires et reaiiseti pat des gcstionnaircs.. 



ETUDIE 

FORME 

REAUSE 

LIVRE 



• opporlunite d 'utilisation de I'outl] mlcro-lnformatlque 

• int^gTation entre informatique traditionnelle et personnelie 

• politique de la communicatlDn dans I'entreprise 



* formation a rutilisatton de la micio-infarmatique 



* realisation de programmes a la demands 



• livraison de iiystumes izlva eii mahi, avec des progicieU de 
GESTION DE STOCK. PAYE. COMPTABILITE. 



Nous sommes gestionnair^s avant d'etre informaticieos. L'informatique doit ^'adapter a rhomme, et non l inuerse. 
L'ouiil niitio-iiiformalique lepond paiticulierement bien a te souci de quallte et d'efficacite du travail. 

dans des conditions conviviales 
Mombrcuscs references en informatique traditionncllc divers matericis - et cn infomiatique individucllc - prindpalcment 

Apple - aupres des PME etdes groupes industriels. 



logma 



s.a. Centre La Chataigneraie - 29. auenus de Versailles - 78170 La-Celle-Sl-Cloud - T61- : (3) 918. 13. 07 
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WITH TABS. F"^!: J J UU WRITELN C NUHERO J 5 » ' ',NDM>; 
READ (KEYBOARD, CD J 

END J 



BEGIN 

hiAXARTi ;=o;maxart2;=o ; 

MARK ( DEPART . F' ) J C pour potjvoir liberer toute la nemoire a la > 

C fin de 1' execution du prograttMe > 

destruction; 

REPEAT menu; 

CASE CL OF '1 ' :destruct-ion; 

'Z' ICREATl J 
'3' ! INITi; 

:visui; 

'5' 1 CREAT2; 
'6' IINIT2; 

'7' :uTSU2; 

end; 

UNTIL CL=CHfi(27> ; 

DCGTRUCTION; -C sinon st<3ck uvtfi flow > 

END. 



Courrier des clubs 



Club Observatoire Orion 

J anime un cercte d astranomie base 
sur la correspondance avec I'etranger : 
nous avons plus de 160 contacts a ha- 
vers \e monde, dont 7(J % aux Etats- 
Unb. En cinq mois. nou5 avons reuni 
plus de 400 listings qull nous faudra 
encoder. 

Nous cherchons a rassembler tous les 
listings que les amateurs ont ecrit, se 
rattachant a rastronomte et a la techni- 
que radio amateur, tant theoriques que 
pour les nuits d'observation et 
d'ecoute. 



Nous avons deja quelques 400 Ko 
toumant sur Apple 11 {DOS 3.3). 
Pouvez-vous nous aider, echanger 
□vec nous ? 

D'un autre c6t6, nous terminons un 
outrage consacre a rastronomie 
d'amateur, en plus de 650 pages et 
450 cliches. Un chapitre est consacre a 
Id inicTO-infomiaiique. Vos listings peu- 
uent encore s'incorporer a I'ouwagc, et 
restCT bsous voire copyriyht. 

ThietTv Lombrv - Club Observatore 
Orion, Tienne aux Pterres 94. B. 5150 
Wepion, Belgique. 



Ma Pomme 

Les leunions leguiieres du dub onl ele 
Aeplncf'.p.'i ail troisiSrne. rnercredi de 
chaque mois. 

Pour toUs renseignements, contact er 
Jean-Francois Duvivier. au (1) 
558.05.78- le soir (eventuellement 

taid). 

Ma Pomme ■ 6, rue Paul Sauniere, 
75016 Paris. 




□IBRAIRE INFORMATIQUE 



LA NACELLE 

ELECTRONfQUE • AUTOMATISME • MICROPROCESSEUR 
TOUS OUVRAGES ET ABONNEMENTS 
FRANQAIS ET ETRANGERS 

Distributeurexclusif pour la France des manuels techniques du Reseau Caluados 
Tuub les uuvfages fiangais ou etrangers signaies dans cene revue peuveni 6ve otiienus ou comrnand^s A La Nacelle 

2, rue Campagne-Premiere 75014 PARIS - Tel. 322 56 46 

M^tro Raspail - Parking a la tiauteur du 120 bd du Montparnasse 
euvert tous les jours lundl compris, sans interruption d* 9 h 30 a 18 h SO, samedi fermeture a17 h 50. 
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The Last 



One a I'essai 



The Last One est un programme qui se 
donne pour deuise : " Je programme 
poui VOU5 ! ». All premier abord, <^ a 
Tair vrai, mais ne I'est que dans les 
limites d'ud ceridiii noiiibre de resliit;- 
fons 

Au lecteur deja initie a la pmgramma- 
tion, le piemieT contact avec le manuel 
d'application [en anglais) donne une 
impression fres favorable. Les explica- 
tions sont claires et precises. Meme le 
non-initie y trouvera son compte, car 
ies termes risquant de poser probieme 
sont expliqufes de fagon daire. 

L'initiation au programme se fait ^ 
I'aide d'un exemple, introduit pas a 
pas. On ne vous expllque pas tocjours 
immediatemenr les instructions presen- 
tees, mais. au bout d'une heure de tra- 
vail, on a un programme de saJsie de 
donnees pour fichier qui toume. Une 
surprise cepiendant : il y a de legeres 
differences entre ce que Ton voit a 
I'ecran et la description qu'en fait le 
manuei d'application Cela tient an fait 
que ce detnier est unique pouj toutes 
les versions de The Ijist One. Un petit 
livret, foumi en annexe, specifie les 
caraderistiques particulieres de la ver- 
sion Apple 11. Tout rentre alors dans 
I'ordre. 

En fait, t'apprentissage est tr& rapide, 
du moins pour ceux qui ont deja de 
bonnes notions de programmation. 
Quant au parfait neophyte,. , ii ferait 
mieiix de s'abstenir. En effet, pour utili- 
ser The Last One valablement, ll faut 
savoir faire Taneklyse du programme 
que Ton desire obtenir et en dresser 
I'organigtamme. A panir de la. et c'est 
cela le grand atout de ce progiciei. le 
prograinme BASIC est gSnSrg sans la 
moindre faute de syntaxe. En d'autres 

termes, vous d^lnlssez les Stapes & sui- 
vre et vous obtenez un programme qui 
les execute. C'est deja non n^gligeable 
pour tous ceux qui sont faches avec 
ieuis virgules, deux-points et autres 
separateurs ou identificateurs... 

Mais, pour en reuenir a noa reirtrictions, 
des que Ton sort du tronc commun des 
BASlCs pour exploiter a tond les possi- 
bilites de TApple (T.L.O. le p>ermet), il 
faut connaftre celles-cl et les ecrire telles 
qu'elles seront dans le programme 
final. C'est le cas pour les foncttons gra- 
pfiiques, formules, appels a des routi- 
nes... 

De fait, The l^st One est un pro- 



gramme qui s'adresse rfeellement i des 
gens qui possedent deja des connais- 
sances en BASIC. 

Mais alois, qu'apporte-t-il ? Avant tout, 
la certitude, si on ne s'est pas trompe 
en d^nissant la logique du pro- 
gramme, que ceiui-ci marchera du pre- 
mier coup. Ensuite, pour tout ce qui est 
traitement de fichters. description 
d'ecrans d'entree-sortie de donnees et 
branchements... une programmation 
grandement facilitee et acceieree, cor 
des foncttons specifiques y sont consa- 
crees. Enfin. mais il faut introduire la 
des reserves, un gain de temps au 
niveau de la miso au point des pro- 
grammes. 

Pour comprendre les raisons de ce gain 
de temps et de nos r&erues, regardons 
comment The Last One fonctionne. 
D'abord, grSce au menu principal, on 
etdbliL un uryaiiigranirrie (flowcharl) 
dans lequel on definit dans leur succes- 
sion la nature des uperatiuiis (cliuix de 
menu, operations sur fichiers, 
caiculs--.) sans s'occuper des operan- 
des. Cette phase est rapide et fadle a 
mettre en oeuvre. Les possibilites d'edi- 
tion [creation et suppression de lignes) 
sont trSs bonnes, malgre un Scrolling 

un peu lent. 

Le flowchart est la seule partie du projet 
de programme que Ton puisse conscr- 
ver pour modification ulteneure, hor- 
mis Ic li^g final cn BASIC - 




La phase suivante consists a « coder le 
programme », c'est-a-dire definir les 
endroits ou s'effectueront les branche- 
ments, la description des ecrans, les 
formules pour les caiculs... C'est une 
etape un peu fastidieuse car ced est fait 
ligne par ligne de I'organigramme : les 
temps d'attente entre les demondes de 
renseignements sont assez longs ; on 
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finir par connailre trop bien le message 
« Working ! Please wait ». 

C'est a cet endroit que s& situcnt nos 
principales reserves. Si vous n'avez fait 
aucune erreiir (de logique — oubli 
d un test ou d'un brajiche merit — cai 
les aiitres ne sont pas admisejs par 
T.L.O.}, c'est parfait. 

Mais supposons que vous ayez oublie 
une ligne dans l organigiamme, un test 
du type « Etes-vous d'accord ? » par 
exemple. E vous faudra alors modifier 
celui-ci en consequence, cc qui est 
facile, mais il faudra ensuite recom- 
mencer toute la phase de codage. Ce 
qui revient quasiment a doubler le 
temps de mise au point du pro- 
gramme, car c'est cette phase qui 
prend I'essentiel du temps. 

C'est la le deftUit majeur de The L.asl 
One. S'tl ne faut pas recommencer plus 
d'une fois, le gain de temps au niveau 
de la mise au point du programme 
reste cependant appreciable 

Mais, dira-t-on. ne peut-on diredement 
{aire les comedions sur le listing engen- 
dre ? l echniquement. c'est partaite- 
ment possible. Mais en pratique quasi- 
ment inrealisable... 

FYemierement. il reste alors un pro- 
gramme BASIC a analyser pour frou- 
ver les endroits a modifier, ce qu'on 
vodait justement eviter en utilisant 
T.L.O. 

Deuxiemement. comme on le consta- 
tera suv I'ejitralf de listing presentc ci- 
dessous, la complexite du programme 
engendre a de quoi decourager meme 
le programmeur experimente. 

En effet. d'une part i! n'est pas du tout 
documqnte (les seules REMs sont 

constitutes par Forganlgramme tns^S 
en debut de listing), dautre part The 
Last One genere ses propres sous- 
programmes, qu'il n'est pas du tout evi- 
dent de dScortiquer. Parm( ceux-ci, il y 
en a d'ailleurs de tres interessants : la 
routine d'lWPLfT, cells de traitement 
des erreurs (aiitomatiquement integrea 
dans tous les progiammes). 

Notons aussi que, lorsqu'une descrip- 
tion d'ccran se retrouve identique a 
elle-m€me en plusieurs points du pro- 
gramme. The Last Une ne sail pas le 
reconnaltre : on la retrouve par conse- 
quent en plusieure exemplaires dans le 
listing. Pour cette raison comme pour 
d'autres, les listings sont relativement 
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longs. A titre d'exemple. le pTogr-amine 
de Tarticle » Notions de base sur !es 
fjchiers » du Pom's 4 prenait 
13 secteurs sur unc disquette. Rleoit 
avec The Last One. il en prend 31 . Les 
temps d'execution s'en ressentent for- 
cement (peu, II est vrai. pour cette taille 
de pTogramnie. mais cda p«ut devenir 
genani) . 

11 a fallu molns de Hois heures pour ren- 
dre le programme op&ationnel auec 
Tlie Last One, malgr^ la n&esslt§ de 
rftcodar line fois a cause de I'oubli de 
positlonnenifeiit d'uii puinlyui. Ce der- 
nier aspeci fait He The Last One un 
programme assez attiayant pour la 
grande majorite des prDgrammeun; 
fl moyens », Le debutant sera un peu 
frustre de ne pas pouvoir en tirer le 
maximum sans apprendre le BASIC - 
T.L.O. nest pas un outil pedagogique. 
Quant au progrommeur cheuronne. il 
!ui sera plus rapide et efficace dc pro- 
grammer lui meme. Aux autres. je 
laisse le som de luger si I'aide. Il est vrai 
non-negligeablc, que pcut leur appor- 
ter ce progiciel vaut son prix de 2 500 a 
3 000 francs. 



THE LAST ONE : extrait de programme 



380 PRINT MID* fK* + " + K*, i, 3 * S} 

;:S = S - NOT .MOT S:A* = MID* 

(ft*. 1,5) 5 GOTO 370 
390 PRINT MID* CS*, - 3): RETURN 

AOO DC = 0:MC = 0:D = 0:S = 0:FD = DL = 

9gsH$ = PHiNl i*nD* (U$, l,mL) 

IF DL AND DL - 99 THEN PRINT 

"." MID* (U*, 1,DL) MID* (B*, i,DL 

+ i - NOT ML) : 
410 PRINT CHR* iB) ; 

A20 GET K* : K = fiSC ( K* + B* ) : ON K = fl 
BOTO 430! ON K = 13 HIMD LbiM (h* 
) GOTO 500! ON m < 45 OR K > 57 
OR K = 47) GOTO 420: IF K = hE. TH 
EN ON D OR NOT DL GOTO 420 :D = 
l: PRINT MID* ^B*, 1,!^L f NOT ML 

- NOT MC);:fl* = MID* ("-",2 - 
3) + STfi* ( PiBS < VRL <fl*))):MC 
= LEN (0*) - i : IF DL < 99 AND M 
L THEN PRINT R IGHT* (b* + fi*, ML 
) : 



C.O.R.P. a I'essai 
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Le progiciel C.O.R.P. se compose de 
deux dlsquettes. Au sens strict du 
terme, !e nom de « generatcur de pro- 
grammes » qu'il se donne est justihe 
dans la mesure ou ce qu'on obtient en 
fin de compte est bien un programme 
Applesoft, Seulement, on na peut pas 
creer avec cet outil n'importe quel type 
de programme- Les auteurs d'aitleurs le 
precisent dans la documentation : 
C.O.R.P. est un generateur de pro- 
yraniiutis pour la cr&aLoii et Texploifa- 
tion des bases de donnees Voyons 
done ce qu'il en est exactement. 

Premier contact avec le produit : sur- 
prise agreable, te manuel d'application 
est en fran^ais. les explications sont 
daires et simples. II est cependant pri- 
mordial de tout lire avec attention et de 
ne pas essayer ie programme avant 
d'avoir lu le mode d'emploi dons son 
integralite. Et pour cause : la protection 
contre les copies pirates repose sur un 
petit boltier qu'on enfiche dans le con- 
necteur de jeux, faute de quoi, paraft-il, 
la disquette s'autodStrun Oe n'ai pas 
essaye et ne vous consciUe pas de le 
falrej. Une fols cela fait, le travail 
serieux peut commencer. 



L utilisation est d'unc faci&d fitonnante. 
Prenons par exemple le cas d'un pro- 
gramme de gcstion de fichier. II suffit 
de definir votre ecrcin pour les 
entrees /sorties de donnles, un peu 
com me en cr^on de masque avec 
MEM/DOS (ex-M,/DOS). Pour cha- 
que ligne non vide. I'utilisateur definit 
les etiquettes de ses variables (nom, 
adresse,...), leur nature (alphanumferl- 
que, numerique.. .) et le nombrG 
maximum d'eiireyislrenieriis ddiiiis. 
C'est tout 'CORP se debroiiitle 
ensuite tout seul comme un grand et, 
cinq minutes plus tard. a mis en place 
un systeme complet de gestlon de 
flchiei : creation, modification, recher- 
che (rapide et lenfej ou suppression 
d un enregistrement. Cest remarqua- 
ble... 

Qui plus est. il est possible de definir les 
champs des variables caractcre par 
caractere : ce qui permet d'avoir une 
variable du type : « CODE ARTICLE 
AA#=(fA». ou A represente un 
caractere alphanumerique et =* un 
chiffre. 

Quant 3 la dificrence de vitesse dans la 



recherche, clle vient de ce que, pour la 
variable definie comme etant la cle, 
C.O.R.P. intogre au programme 
genere un systeme de recherche a table 
de reference (se reporter a larticle 
« r^otions de base sur les fichlers » du 
Pom's 4 pour de plus amples explica- 
tions). 

Un fait est a signaler : ie programme 
cree une table de reference pour le 
maximum H'enregistrements possibles 
ou autorlses des le debut. De ce fail, 
meme s'il n'y a aucun enregistrement 
dans le fichier, si on n'a pas fixe de 
limits de taille {fichier sur toute la dis- 
quette), la table de reference prend 
2b sedeurs. 

Recapitulons i U m'a follu 15 minutes 
{et je suls large) pour creer le masque 
d'ccran, puis encore dnq minutes de 
travail pour C.O.R.P., et nous auons 
un programme Applesoft complet. qui 
marchc (dans tous les cas) et permet, 
grace a son systeme de recherche, dc 
retrouver rapidement les articles par 
une cle, ou lentemenl tous ceux corres- 
ponant a une combinalson de cntferes 
en nombre non limits. Remarquabie ! 
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Lb sKul prublfiiiit; (iiiciisi en esL-ce mi 
r^jpilRmf-nf ?) PKt qu'fin ne paut pas en 
obtenir moins... Lc programme ainsi 
tree prend 45 secteurs tcontre 13 pour 
]e mcme progiamme a la main) , 11 est 
vrai qu'il est plus performant par ses 
possibilites de selection muiticriteres. 

Jetons un coup d'ooil sui le listing 
enQsndre, H est lonq, bien sur... mais il 
Gst tres clair. II n'y a presquo jamais plus 
d'une instruction par ligne ; il est fadle- 
ment lisibie st en consequence aise- 
ment modifiable (je rrai pas eu a le faire 
cependant) . On trouuera ci-dessous un 
exemple. 

S'il n'avait que cela, C.O.R.P. serail 
seulement un hon produit comme on 
en trouve encore assez souvent. Mais it 
y a plus... Tout d'abord. il est possible 
de cross -referencer les fichiers (i.e. faire 
des renvois). Mais surtout, il y a des 
possibilites de creation d'autres types de 
programmes : 

— programmes d'tmpressiun d'etats en 
to us genres ; 

— programmes d'edition de formulai- 
rcs pre-etablis avec recherche des don- 
nees dans le fichier. Tres pratique par 
exennple pour etabiir des factures ; 

— programmes de reclassement de 
fichiers scion un champ quelconque gn 
ordre croissant ou decroissant ; 

— Gt surtout programmes de mise a 
jour de tout ou partie d'un flchter selon 
des formulas donnees. On paut, a 
j'aide de ceux-ci, appllquer un pour- 
centage de hausse sur las prix de tous 
ies articles du fichier, ou seulement 
pour certains articles selectionnes selon 
des crltferes & d^finir ; 

— snfin, la possibility de reconstituer 
des ficfiiers partielleinKiil detruits pai 
line faufse manceui/re. 

Comme on le constate, C.O.R.P. est 
une panoplie tres complete de gestion 
de base de donnees. En fait, cc n'cst 
meme rien de plus. La seule chose qui 
le distingue d'une base de donnees du 
type CX Multisestion ou DB Master, 
c'cst que vous pouvez definir vos 
&rans comme vous I'entendez et que 
vous obtenez un programme Applesoft 
complet et auTonome dom les fichiers 
sont lisibles par tout autre programme 
du genre, C'est d^jS beaucoup, diront 
certains . 

En effet, ga Test, surtout .^i Ton prend 
en consideiation la facilite d'emploi de 
C.O.R.P. (on peut reeUement sen 
servir sans rien connaitre en informati- 
que), la vitesse de miss au point des 
programmes et surtout leurs perfor- 
mances de rapidite et fiabilite.' 

De plus, le listing etant fadle a lire, on 



CORP : exlrait de programme 
2090 INPUT " " ;YU* 

2100 IF RID* 5¥Llf,l,il = "b" ! Hti\ ^260 
O 

2110 IF i>iID* ^VU4,l,i) = "C" THEi^ 23.30 
2120 BDTD 2070 

2130 IF KC* "*" THEisi GGSUB 300 

2135 IF KG* < > THEN GOSUB 20 

2140 IF liil = THEN 302 

2150 F7 = 1 

2160 GOTO 1230 

21 VU KtC* = "*" 

2160 FOR 2TEC = 1 TO 4 

2190 REC4 = REG* + FIELD* (ITEC) 

2200 NEXT ITEC 



peut tacilement modifier le pro- 
gramme, par exemple pour traduire en 
frongais les commandes (en anglais 
dans le programme genere) . 

En conclusion, pour quiconque tra- 
vaille souvent avec des fichiers, bases 



de donnees et autres betes du memes 
genre. C.O.R.P. est un excellent outil. 
Is'ous aimons beaucoup, 

C.O.R.P. coute 2 990 F H.T, pour le 
systeme complet. 2 100 F H.T. en 
version de base. 
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Erratum 

Herue Thiriez 



n me faut faire amende honorable au 
sujet du demier numeio de Pom's ; 
ayant du le terminer au mois d'aout, en 
meme temps que mon livre sur Visj- 
calc, j'ai lalssQ passer ccirtaines orreurs 
dans la redaction et le contiole des arQ- 
cics. Je ne dispose pas sur mon Olym- 
pia des caracteres <: , > et ^ , et il 
faut en cffct Ics creer manuollsment. 
VoiC! les corrections, dans I'ordre de 
lecture de Pom's, auxqueiles nous 
avons ajoutg des complements dlnfor- 
rnation. 

1. Le clavier magique 

Page 4, colonne 2. ligne 4. il faut lire : 
#<3EPART >. < INCREMENT >. 

2. La programmation 
facilitee 

Page 23, colonne 2, lignes 6 et 7. lire • 
X < 128 diniimje la duree, X > 128 
augmente. 

Ifi Iigne_s filun bas, lire « affichant 
PRINT FN ARR{X} ». 

Afin de formater un icran entier avant 
de placer les INPUT et de creer una 
commande de formatage pur, it &uffit 
de quelques instnictions en plus et de 
creer une commande de formatage 
pur. On supprime « INPUT A$ » et le 
paramfee longueur dovient obliga- 
toire, car le « 1 » servira a identifier la 
commande, II faut pour cela : 
— Modifier les lignes suivantes : 

72 LDY #= 

73 STY LONGUEUR 
74STY $6 

123 BEQ MASQUE 

' — Inserer les lignes suiuantes : 

54CMP^'l' 

55 BEQ INPUT 

75 PHA 

76 CMP4-'r 
77 BEQ INPTL 

115 DEC $BF 

122 INC SBF 

137 MASQUE PLA 

138 CMP T 

139 BEQ GTR IS 

3. HAIFA 

Tout d'abord, il faul interuertir les 



pages 41 et 42. Nous esperons que la 
plupart des ledeurs sen etaient aper- 
5US. . , 

Page 35. col, 2, § 3. ligne 5. lire 
« + SA5 ». 

Paragraphe suivant, lignes 4 st 5, lire 
« fait un bip, deconnede les routines 
spcciales d'entree/ sortie, puis la rcpro- 
grammanon de HAIFA intervient — le 
RESET agit comma CTRL-C ; il 
fait". 

Page 36. la pile. Lire PUSH >■ et 
PULL > (pas de agne " = ") . 

Page 36, a propos de & GOTO, & 
GOSUB. & KtSrUKL et & NEW : 
comme on peut utiliser des expressions 
num&iques a la place des nombres, il 
vaut mieuK ne plus utiliser le RENUM- 
BER ! 

Page 37. le « INPUT anirthing ». Une 
proprtcte suppiementaire a ete omise : 
& INPUT a [chafnel » ; Inom de varia- 
ble], [exp, num.] 

& INPUT [nom de variable], [exp. 
num.] . 

Ces commandes aglssent comme & 
INPUT, mais ajoutent denriere le cur- 
seur un nombre de points correspon- 
dant a I'expression numerique (de I a 
2551 . Ce nombre de points indique la 
longueur maximale de la chaine autori 
see : en cas de depassement, la chaine 
sera tronquee en consequence. 

Page 42, bas de colonne 1 : le type 9 a 
pour effet « T<==>E ». 

Page 43, col. 1, §5. Itgnes 6 et 7 : 
,..« <; » pour la gauche, « >. » pour 
la drofte... 

Page 43. tracer des points et des droi- 
tes : le HPL.OT. le X HPLOT et le N 
I IPLOT peuvent etre prolonges par 
chnrune de.s continuations [ex.1], 
[ex.2] ou TO [exT], [cx.2] ou ON 
[ex.3] 

Page 45, col, 2, §4. lire PR# et !N# 
au lieu de PR = et IN = . 

Page 46, §2 et page 47, Ittjne 1, lire 
CTRL-SHIFT-N au lieu de CTRL-%. 

Page 46, dernier §. lire CTRL-SHIFT- 

P au lieu de CTRL-a. 

Adresse des routines : GFTI.IN 

t$FD6A), RDKEY{$rDOC) et 

COUTKSFDEO), 

Page 4S, col, 2, §4, ligne 1 ; « Cctte 



routine court -circuite Tentree de *• ; 
ligne 9 : lire PKINI CHK$[4)« irs# 
» : IN ■> et non « PR ». 

Page 51, col, 2, §2 : ligne 3 : 
« .., tables apres les fichiers » ;, ligne 
9 : « du code (HA1FA,C0DE en 48K 
ou HAIFA. CODE 1 en 64K). il ne *, 

Remarques sur 

la disquette Pom's 5. 

Le programme source est constitue de 
deux fichiers LISA 2,5 version 64K 
Gnchain& par ICL car I'ensemble §tait 
tiop gros pour tenlr en mSmolre en un 
seul fichier. L'assemblage de ces 
fichiers sauve automaUquement les 
deux fichiers source. La encore, il fallait 
deux fichiers distincis car LISA ne laisse 
que 4K pour le fichier genere. 

L'assemblage des deux versions de 
HAIFA (48K et 64K) a ete realise avec 
LISA en version 64K. Pour pouvoir lis- 
tei les fichiers avec LISA 48K. il a fallu 
decouper HAFA.TEXT 1 et HAIFA. 
TEXT 2 en deux parties chacun (suf- 
fixes A a D). Ces quatre fichiers 
s'enchainent avec ICL. mais ne sont 
pas assemblables en 4SK car la table 
des symboles est satur^. 

Celle-d a en cffct une longueur de 
$800 en LISA 48K et de $1500 en 
LISA 64K. HAIFA est done beaucoup 
trop gros pour etre assemble en 48K ! 

4. Conversion Pascal/ 
BASIC/Pascal 

Nous adressons nos excuse*; aux lec- 
leurs ayant essuye des difficultSs lors 
de riitili?;atinn- de.s programmes de 
conversion Pascal/BASIC/ Pascal, 
fournis avec les disquettes Pom's 2 
a 4, et commentes dans le 
num&o 3. 

Pour ceux d'entTe vous qui recoivent 
les disquettes, utilisez le programme 
de transfert de BASIC vers Pascal de 
la disquette Pom's 5. dans laqueile 
le bug avait ete corrige, ou celui de la 
disquette 6, bien entendu. 

Ce bug avail Ste malheurcusement 
absent de nos essais. dans lesquels 
nous avions rcmis Ics programmes 
sur une disquete Pascal vierge. La 
consequence du bug est qu'unc par- 
tie du programme Pascal risque 
d'etre absents en fin de course. 
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Le remede est le suivant. a appliquer 
aux programmes prescntes par Gil- 
Ics Mauffrcy dans le Pom's 3 : 

1. Dans PASCBAS.OBJO, ligne 
288, liie CMP+$10. 



Done, dans le code objet, faire 
AE3 : 10. 

2. Dans BASPASC.OBJO [sur dia- 
qiiette imiquement). ligne 449. lire 
CMP #$10. 



Done, dans [« code objet, faiie 
C29 : 10. 

3. Avant touts utilisation, nettoyer la 
mGmoire avcc ; 

2onn • n 

200 1< 2000 . 8000 M. 




"C.O.R.P." et "The Last One" 




VISICALC,VISICALC... 



Avec le modele Visicalc, vous pouvez creer sur voire P.S.f. (Petit Systeme 
Individuel) un tableau comportant des litres, des valeurs et des formules. 
Des que vous changez une des valeurs numeriques, tout ie tableau se 
met a jour en fonction des formules. Get ouvrage vous guide pas a pas 
dans I'utilisation de Visicalc, a I'aide d'exemples progressifs, De nom- 
breux cas d'applicatlon som pr6sent6s dans la seconde partle, au 
rythme d'un chapitre par cas : ectieancier do remboursement, feuille 
d'ImpOt, gestlon de coproprl6t6, paye, facturation, tableau de bord.,. 
Chaque exemple sert a introduirG de rouvellQs instructions ou 
astucesd'utilisation. 



t76 pages - 82,00 FF/630,00 FB 
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P.S.I, DIFFUSION 
41-51, jBCCiuard 

FRAMCE 

RS.l. BENELUX 

B. fivenue de !■ Fhuh Utiam 

1180 Bfuielles 
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SCE inc 
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Envoyer bcH^ 

acccmnpaane 
de voire reglemenl a 
P.S.I OlFfUSION 
ou, pour la Eselgique el 
le Lmembourg, i 
P.3.1. BENELUX 
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MAPAYE 11 A 

• MA i'AY t pcrmci de cwitiT les pfobltnies dc pdc pour Its cntrcpris^ <J.- 
moiiis tk- 1^)0 salaries. 

• MAPAYE otTro 2(K) njbriquos di.» paic dilTect-iites. 

• MAPAYE fsi JctiiL-IIcmcutopciiiiunnd thcz de iiombmix 
c.\pcrts-Li.nnp[nbk's. dans Ic batimmt, Tliotctlcnf, etc. 

• MAI'AYh touriiL-sur: un APPLE I!, im APVIE III. 

MASTOCKIHA 

• M AS ipCK est un proj:r,iniinc dc gcstion de stock ct ifc tarrurafion. il 
pent trea bim f.iirf I'liii sans TautTt'. 

• MAS IUCK, dans ia configuration inaKimalc. pcul gun.! 2<K10irndes, 
4ti0 tjitiiis/lbuniissi'urs I't 12iKi vtiitcs. 

■ M-iVSTQCK pcnnct b gcstion du stock L-n ttmpsTtd. dcpuisla livraison 
du rburiiisbcur a la f*fttirjtion do ctieiit. 

• M ASTOCK wumestir un; ARPLE II, APPLE Ifl. 

MACOMPTA I 

• M ACt>MPTA csr un programmf de comptabiltLi- lii iLnip.s reel, capable 
d'jisuiLt J li lois la compiabilitc' gaicrjk' tiers ft atialyiiquc, 

• MACOiVH' i A, sur un disque tie 5 milliojis dc caracti-rcs. pour 
50(Kl Lomptesut I5l)ll licriturfs n'nrciit\equ<? b moilie du djf qui-. 

• MACOMPTA un programnit ™tiiri;mcnr parjnicnjblc. 

• MACOMPTA pcrmct dc Icui ci Its LCTimrcs if un coniptc iiissi que li 
tlumtc jutumatique d 'c.^ctcicL- jvcc rcurist des solt]L■^. 

• MACOMPIA tounifsur un : APPLE IN. 




MICROGES 

30, bd de Glatigny 78000 VERSAILLES 
Tel.: 16 (3)955 30 23 



Micro 



informations 



Logiciel 

Micro Informatique Service a rebaptisfi, 
poiir des raisons da propriete commer- 
ddJe, It: M/D05 (Puru's 4) eii 
MFM/DOS 

Vous pouvez maintenant constituer 
voire reseau local avec MEMNET. a 
base d "Apple 11 et Apple lil en cohabita- 
tion. Maximum de 127 postes (Pom's 
vous offre une reduction pour 127 
abonnements !), avec une distance de 
500 metres maximum entie chaque 
posts. 

Felicitations a M.I.S., qui uient d'obte- 
nir le prix « Sysferiife: » de Id Poinme 
d'Or et de creer m iiliale aiix USA II f^^i i- 
drdil que le reiiuui de la belle aux Aine- 
ricains se fasw un pen plus sraivent. 

M I S 3. me Meyerbeer 
OGOOO Nice. Tel. , (93) 87,74.07. 

La societe CD. Soft commerciolise un 
logiciel de gestion de cabinet dentaire. 
Ecrit par un chirurgien dentiste et bap 
tise AGATHA, ce programme assure 
la gestion d'un fichier de 200 patients 
en cours de soins (plans de trattement, 
sotns realises. . .) , ledition des feuilles de 
S.S., des devis de piothSses, des 
ordonnances. . . , la gestion des recettes, 
dSpenses et des impayfe. 

Coflt du logiciel : 11 600 FF TTC (prix 
indicatif) , 

C D Soft D' PieiTp. Gflii.wpn. 

59 bis, rue de la Diche 

/innnn Mimes. Tel. : (66) 28.09.46. 

La societe MEDEE propose un logiciel 
d'anaiysc statistlque Gt da selection dc 
donnees (profils, moyennes, ecan- 
typc, droite ct coefficient de correlation, 
analyse a partir de variables obtenues 
par caicul sur des variables de base, 
recherche multialt&re...). 

MEDEE. Logiciel ALED. 

9, rue du Professeur Rorence. 

69003 Lyon. Tel. : (7) 854.31.95. 

Autre systeme d'analyse de donnees 
sdentifiques ou marketing, P.C.S.S,, 
distribue par Alpha -Systemcs, Struc- 
ture parametrable des questionnaires 
traites, tests parametriques (variance, 
correlalion, reyressiun lineairt;- . .) , tesls 
non parametriques (Wllcoxon, Fried- 
man...), plcHis Iddorielb, aiidyieb irtul- 
tidimensionnelles (composantes princi- 
palids, rfiyiessioii iiiukiple...), vous sont 
offerts a des prix variant t\p. 7 000 a 
29 500 FT HT selon les options. 



Alpha-Systemes. 51, rue Thiers. 
38000 Grenoble, Tel. : (76)47.80.67. 

Microqres distribue a present un progi- 
ciel de comptabilit^ sur Apple III avec 
Profile (25 000 comptes ei 25 000 
ecritures), entierement parametrable. 
Prix : 6 000 FF HT. 

Mitjyyei. 30. bd de Glatigny. 
78000 Versailles Tel ■ (3) %.^.3n.2.'^. 

Materiel 

ZH Computer propose une large 
gamme de peripheriques pour 
Apple II : 

— Lecteur de cartes magnet! ques 
(carte bleue...). 

Lecteur et encodeui dc cartes 
magnetiques. 

— Lecture et impression do «code 
barreii. 
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— Impiimante de ticket de caisse et 
tiroir-caisse connecte sur Apple. 

— Carte de digitalisation d'image et 
camira de surveblance. 

— Systeme de aoisie optique de for 
mulaires, questionnaires... 

ZH Computer. 34, rue Vivienne. 
75002 Paris. Tel. : (1) 233,72.07. 

Jod Electronique commercialise depuis 

peu une imprimante-table tragante per- 
mettant le trace des graphiques en cou- 
leurs sur documents opaques ou trans- 
parents. Prix de rimprimante (sur la 
base dudollara 7 FF) : S 800 FFHT ; 
iogiciel de 665 FF HT a 1 377 FF HT 
par programme. 

Jod Qec;truiiique. 9, rue Noblel. 
Q?iiOO Riieil Maimaimn. 
Tel. : (1) 749.70.44. 



AlphaSystcmGE (cf. ci-dessuE) pre- 
sents egalement des cartes d'extsnsion 
RAM 32, 64 et 128 livrees avec des 
logiciels permettant de reloger Apple- 
soft Integer et/ou DOS dans la carte, 
de lire ou d'fecrire routines, tableaux ou 
programmes dans la carte, ou de gcrer 
une ou plusieurs de ces uartes pesr POS 
ou CP/M. 

[Jn autre logit^iel permet en outre d'uiili- 
ser ces cartes avec Visicalc. Prix de 

2 500 a 6 500 FF HT. 

La meme sociSte propose par ailleurs 
une carte d'intcrface «bufferis6e» per- 
mettant la cfestion autonome d'impri- 
mante (travaux simuhanes de rimpri- 
mante el de i'Apple), avec prise en 
charge de la mise en page et copie 
d'ecran graphique (prix : 2 500- 

3 000 FFHT), 

La society B.I. P. a baisse le prix de ses 
cdrles : piix publk; de 5 025 FF MT 
pour la cfirte 1 !K K DF. (voir Pnm's 5) 
avec son logiciel, y compris le Disk 
Fmulator et I'exte.nsion Visici^Ic. iji 
carte RAM 64 KG est maintenant pro- 
posee a 3 050 FF H I". 

B.I. P. 25, rue du Mont Cenis, 
7501S France. Tel. : {1} 264.02.32. 

General Automation diffuse des uniffe 
de disques souples 8" de capacite uni- 
taire de 10 mega-ortets, utilisant des 
cartouches souples amovibles inter- S 
changeables. Prix unitaire : 6 000 $. I 

General Automation . I 
Les Mercuritiles, H 
40, rue J.-Jaures. 93176 Baqnolet. I 

Publications 

Les Editions Eyrolles (61, bd St- 
Germain. 75240 Parix Cedex 05) pre- 
sentent trois nouveaux ouvrages : 

— Votre Gestion Avec BASIC, par 
Guy Ladevie (138 pages - 65 F). Pre- 
sentation dexemples d'utilisation du 
micro-ordlnateur [comptabilite person- 
nsUe ou d'entreprise, etat bancaire, 
gestion de fichiers...) et de mSthodes 

necessaires pour une honne program- 
iritiliun , 

— CP/M et sa famille, par P Dax 
(144 pages - 65 F). Desalption et 
analyse df. CP/M, He se.s extensions et 
de sort enwlronjiement logiciel, et des 
consp.quenrfts de Tavenement des pro- 
cesseurs 16 bits. 

— L'Assembleur facUe du Z 80. par 
O. Lepage (120 pages - 60 F). 
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Courrier des 



Enfin une revue en frangais pour 
i'Apple U. Apres beaucoup de temps 
pass& d desassembkr e£ Lumprendie 
I' Applesoft, aid A par quBiques articles 
de reuues am6ricair\e&. QueJ piaisir 
en/irt... 

r/e nam fais paruenir un petit exemple 
de mon ^travail", qui peut-itre interes- 
sera uos lecteurs. i! s'a0t d'une tortue 
(moins puissartte que cells du Pascal) 
utiUsable a partir de I'Appiesoft avec 
« t'ampeTsarid ». 

J'ai passe de nombreuses nuits sur 
I'Appiesoft ei ai trouui un ver dans la 
pomme qui ne semble pas connu (ni 
grauej. 

Tout num&ro de Itgne superieur a 
63 999 prouoqiie ime SYNTAX 
ERROR, sou/ fes riuffieros compris 
enhv 437 760 et 440 .91 9 qui plantent 
I'ApplcxjfL ??? Le saviez-uous ? 

Pour terminer, une question (je con- 
nois moins bien le DOS Que I Apple- 
soft}. La sequence BLOAD ^nom de 
programme* et CALL «d&but de pro- 
gramme" ne fait pas la mdme chose 
qu'un BRUN «nom de pro<pamme». il 
semble qu'apres an BRUN, en fin de 
programme, ie RTS ne rende pas la 
rnain dans certains cos. L'ouez-vous 
remarquS ? 
Jacques Dumo 

26-28, rue de Oichy, 75009 Paris 

Comme vous pouvez la voir dans ce 
num^ro, nous ne nous sornrnes pas 
priues de mflttrs uos connaissances a 
tonUribiiUon. 

En ce qui conoeme les numfeoa de 
lignes entre 437760 et 4A:UiV^, ce que 
vous avez remarque est la conse- 
quence d'un bug Applesoft (du moins. 
c'est ce que nous croyons apres 
anaiysej . II s'agit de la procedure LIN- 
GET (SDAOC) ; il faudrait remplacer 
[DAIE : BO D4) par fDAlE : BO 06]. 
Vous pouvez vous amuser a analyser 
la raison de cette modification , 

Bien 'entendu, la modification ne peut 
etre effectuee que sur une version 
d'Applesoft acctJiiilbly. done en RAM. 

Quant a votre dtiniiere question, ie 
RTS ne rend pas la main chaqiie fois 
que le proyramme en asseinbleur a 
modifie les entrees/sorties ecran ou 
clavier, Cesl expUque dans la docu- 
mentation de HAIFA, qui prouoque 
typiquement ce probleme. 



lecteurs 



Vous avez pubtie dans Pom's qur/ 
existe des patches pour Applewriter, en 
particulier pour le mettre en SO colon- 
nes. Pouuez-uous me dire ce qu'il faut 
faire et me donner das tuyaux a propos 
d'autres transformations de ce pro- 
gramme ? 

Je vous dorxne celle que fai trouvie 
pour obtenir, auec Applewriter ! et la 
ROM minuscules, des minuscules d 
lecran. Dans le TEDITOR. if faut 
entrer : 

0AE6 : 20 69 1H 

1S69 . 48 C9 EO 90 02 29 DF C9 CO 
90 02 09 20 C9 20 BO 02 09 CO 91 
28 C8 68 00 

C'esi le re.rodage des caraderes QUi se 
juii utuquement pour I'enuoi a la video, 
Le codags Applewriter est conserve en 
memoire , et rests correct pour I'envoi a 
f'tmprimante. 

Ce qui m'interesse egalament, c'est la 
possibility d'inserer dans le texte des 
commandes particulieres a Vimpri- 
mante, carocteres de controle ou cow- 
mortdes plus complexes. Mon IDS }us- 
tifie a droite et a gauche en mode pro- 
portionnel auec la corrtmande 
[CHR$(27);"J.100,600,$"]. Je ira- 
uaille la-dessus : auez-uous des bi]jaijx 
d ce sujet ? 

Dans un autre ordre d'ldf.e, 
connaissez-uous des program rr:ea Je 
trmtement de texte pour Apple qui utili- 
sent la cane SO cohnnes SUP'RTERM 
et acceptent ses rommnndes. et 
sachentgerer les accents drconflexes ? 
Comme base de donnees, futilisc 
General Manager. Non seuiement j'en 
suis satisfait, mais je trouue que ce pro 
gramme prc^Quement tnconnu sou- 
lient tres bien la comparaison auec 
d'autres, notamment le DB Master. 
D'autant qu'il coute seuiement 
995 Jrancs. 

Guido Berwunuio Bettioi. 
2. rue des Rempnrts, 
30800 SaiiU-Gilies. 

Merci pour le passage en minuscules, 
voila un patch tres sympathique. Le 
seul traitement de texte qui marche a 
notre connaissance avec la carte 
SUP'RTERM est TApplewriter H, ver- 
sion 2.0. Mais nous ne connaissons pas 
un patch lui permettant de bien impri- 
mer les accents drconflexes. 
Applewriter 11 permet I'insertion de 
caradere.? de controle ; renseignez- 
vous sur les limites de ce logiciel. 



Nous sommes desoles, mais nous 
n'avons pas de reponse aux autres 
questions. Nous faisons appel aux 
autres lecteurs de Pom's. Envoyez les 
reponses, s'il vous plait ! 



Je Bens d vous feliciter de voire trai^ail 
pour uotre inotre) revue Pom's. Bien 
que celle d rn'apparaisse quelquc peu 
auancee pour le debutant que je suis, je 
my suis abonne des son apparition. 
C'est a uos connaissances et a voire 
comprehension que je m'adresse 
aujaurd'hul plus particulierement. 
Quelques questions restent pour moi 
sans reponses. 

Pouvez-vous m'indlquer les modifica- 
tinns n nppnrter au programme 
Applewriter poui que celui-ci accepte la 
cartR 80 colon nes Wdeoferm ? 
Comment peut-on afficher le CATA- 
LOG des fichiers realises avec Visicalc 
en restant en mode de trauail Visicalc ? 
Peul-uTi modifier le programme Visi- 
calc pour qu'il marche auec la ccate 
Videoierm ? 

Comment se fait-il, lorsque fessaije de 

crier un fichler Visfcalc sur une dis- 

quette formatee en DOS avec [/PD], 

que fobtienrie k message 

ERROR » ? 

M. Philippa Guinii. 

39-41 . rue Saint-Fargeau, Bat A, 

75020 Paris. 

A notre connai-S-Sanre, seule la C£trte 
SUFRTERM peut fondionner avec 
Applewriter Et, pour tout arranger, 
seule Videoterm cohabite avec 
Vi.sir:a!r... Contacter Alpha-systemes 
(voii la rubrique Micro-informations) 
par exemple pour cette cohabitation. 

II n'y a pas moyen d'obtenir le CATA- 
LOG a Tintericur do Visicalc. On peut 
seuiement faire defiier les noms de 
fichiers avec I'instruction [/SL] et la fle- 
che de droite (une fleche par fichler). 

Si vous eles sur le drive 1 et que vous 
desirez voir les noms de fichiers sur le 
drive 2, vous y parvenez en entrant 
[/SL,D2], suivi des memes fl&hes de 
droite. 

n n'y a aucun probleme pour iiauveyar- 
der deg fichiers Visicalc sur une dis- 
quelLtf torriidtee en DOS 3.3 avec I'ins- 
trudion habituclle [/SSnom]. D n'y a 
fieri Je special a faiie. De toute fa<;on 
[/PD] nu [/SS] marche de la meme 
fajon sur une disquette initialise 
DOS /!-3 ou Visicalc. 

Le message « 1/0 bKKOK » survient 
par centre quand vous essoyez, par 
distraction, d'effectuer une sauvegarde 
sur la disquette du programme Visicalc. 
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JCR, UN NOM. QUA TRE NOUVEAUTES 
TROIS OUVERTURES. UNE TRANSFORMATION. 



Produrts 



Produiti 



★★PROMOirON 

1 APPLtllJBS 
I DISK- 1.3. + conualeur 
1 MONITEURViDCO 12* 
1 OOITE DE to DISQUETTES 

■**OtSK II + COMTBOLEUR 
*-*DISK II 

, , I ABLt I r t UKAKHIQUE 

ACC 

■iHkrEXT. MEr- 
CARTEIMi 
r.AKTE LAN, 
SUPER CARrt 
CARTE ZBO 

LO&ICIELS H 

VISICALCISSEOO! 
W5IPLOT 

VISlTREND/VISIPtOT 

viarEiiM 

DESCTOfPLAN II 
VISIFIIF 

APPLE LOGO STANDARD 

APPLE II 

CARTE SUPEBTERM r 
CLAVIEB NUMERir 
JOYSllCK II 
POiGNEESOE- 





diani pom raas ies 



OUVERTURE DE j CJl. A MJUISEILLS: 

=^ T-:i rj J I v-:r;E^Lii Escal iiE r.oa- 

v-:-5L; ceT^.^fi ir,formii1:^'Jt- ICP SSl 
'.■■=3 mim^s a-i-a3jte;g« que jC:S 

roi^ Ses services, fasisance , te- 
:.-uns^G ci la malmenejKs sr.i i-ji 
fib:r^. JCH eel fnit a vsT*c aiccr 

qi>& EervK^ campns ^sYtti: i ut iUi 




iTK7) 

^JNT£RFJ 
iBMAMTE 
IXROPflES 



particuliers sont 



fesmsEeurs raatenels. etu- 
:m csTtseil. JCR c'eat I'mfor- 



orvTFnmr itctj centre de formation 



1 MO. OUVERTURE DTJNE SURFACE 
1 SY^TE^ PROFESSIONNELLE 

1 BUSINESi 



Ul r - ■ - ^~ * " r— - — 1>OOR TOUS" S'AGRANDIT 



AhFAIKt t)((,l 

SfLtNlTHt/// 
□ISQUE /// 5' 
MOHITEUR)!' //^ 
Vt*rROFILE5MO 



VISICALC /// 

MAIL UST MANAGES 

PASCAL 

AmE WRITER ///Fr 

ACCESS/// 

VICTOR 

VICTOR 16H IMP 
CONTROL CUI! A MAIN 

JEUX & PROGRAMA^ 

BlomHME 
CONTRATiC 
REGATES 
CHATBYRINTHE 
ENCEGCLEMENT 
COW -BUYS 
GLOUTON 
eOOFY GOLF 
MICRO CHESS 
ROI D'OmiNATRIE 



FapidHH. ^ecunte. i ^nr^hiin^ . 

rotr? cnMfmae a tout a m yjnr-r 

Aijssa. ne pserues (ie decscE 
avajtl d'avoif visite is 3C€r?eJ 

inrjm- rifliDF3iRnelset(ie]ogE:i&5 
C^nc^ pDur ^^9. plus ]e senjice 
SUK 

riesplys oiatKtesiTiffrcliies f Aopfe, 
Sharp, anus. ThtjntsMl, Commo- 
ttoi*... 

Lo^uH^ ; Wis garEH3»= ciQU^jl^te «1 

ijupiaodqye, traneavenl de EfiMtes, 

Sennr* " pISlC qil'UTI VSndeiiLjCR 

est le ventabte partenaiie mfor- 
maHqye de voire tmJrepnse" 




120 F 
120 F 
120 F 
I20F 
120P 

nor 

ISOF 
IMF 



EHAkr 

SHARP 

C£12' 
CI 123 

**PC!500 

rf ("SI 



IMPRl MANTES CEN 

PANASONIC 

— : - liN-r- AiiM 

OtSQUETTES 

'.MNi^SSETTES 

'>:-'«to»j«:apple 

CASIO 
HOU^'EAUX 



TTC 



IISOF 

lezoF 

I480 F 
6300 F 
IQ20F 
v/mr 

930 F 
74S0 F 
1200F 
6700 F 
WOOF 

540 F 

irOQF 
7450 F 
1720F 

WOOF 



3800 f 
4590 F 
4*5 f 
3040 F 
525C F 



2200 F 
2290 F 
3800 F 
3800 F 



ijaoo ^ 

] 3560 F 




380 F 



llSOF 

230 F 
470 F 



J3«0 F 
3000 F 



*★ ARTICLES EN PROMOTION EXCEPT10NNELLE. 

En raisan.dfts fluctuofvoni mofielaires ces prfx innf susceptibles d'eJre moi^tiei i-^^-i - = 



-Totion. Mguik ccsnsulter ovpnt tout achat. 





Sl^ v *i»>i Pimiii ^ Loreite 39, me du Dui;lt^ui £5cat 
7Sae« - Tat ?Si!9.S0 13008 MARSEILLE 
--SaK . 29«>S0 F Tel (91) 37.62.33 



Boutique 



Vente por corresponcfance - Cotologue grofucts 

Horaires d'ouverture du magosin du aav 



Datalife 

BvAferbatim, 



DISQUFTTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 



Daialife 

"Vferbaiim- 






Datalife 
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